242 PURE elemental module function constructWcauchy_RK5(cs)
result(wcauchy)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK5
247 real(RKC) ,
intent(in) :: cs
253 PURE elemental module function constructWcauchy_RK4(cs)
result(wcauchy)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK4
258 real(RKC) ,
intent(in) :: cs
264 PURE elemental module function constructWcauchy_RK3(cs)
result(wcauchy)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK3
269 real(RKC) ,
intent(in) :: cs
275 PURE elemental module function constructWcauchy_RK2(cs)
result(wcauchy)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK2
280 real(RKC) ,
intent(in) :: cs
286 PURE elemental module function constructWcauchy_RK1(cs)
result(wcauchy)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK1
291 real(RKC) ,
intent(in) :: cs
394 PURE elemental module function constructWsin_RK5(omega)
result(wsin)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK5
399 real(RKC) ,
intent(in) :: omega
405 PURE elemental module function constructWsin_RK4(omega)
result(wsin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK4
410 real(RKC) ,
intent(in) :: omega
416 PURE elemental module function constructWsin_RK3(omega)
result(wsin)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK3
421 real(RKC) ,
intent(in) :: omega
427 PURE elemental module function constructWsin_RK2(omega)
result(wsin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK2
432 real(RKC) ,
intent(in) :: omega
438 PURE elemental module function constructWsin_RK1(omega)
result(wsin)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK1
443 real(RKC) ,
intent(in) :: omega
546 PURE elemental module function constructWcos_RK5(omega)
result(wcos)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK5
551 real(RKC) ,
intent(in) :: omega
557 PURE elemental module function constructWcos_RK4(omega)
result(wcos)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK4
562 real(RKC) ,
intent(in) :: omega
568 PURE elemental module function constructWcos_RK3(omega)
result(wcos)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK3
573 real(RKC) ,
intent(in) :: omega
579 PURE elemental module function constructWcos_RK2(omega)
result(wcos)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK2
584 real(RKC) ,
intent(in) :: omega
590 PURE elemental module function constructWcos_RK1(omega)
result(wcos)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK1
595 real(RKC) ,
intent(in) :: omega
699 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
700 ,
4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
701 ,
7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
702 ,
9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB ]
724 [
4.1795918367346938775510204081632653061224489795918367346938775510204081632653061224489795918367346938775510204081633e-01_RKB &
725 ,
3.8183005050511894495036977548897513387836508353386273475108345103070554643412970834868465934404480145031467176458536e-01_RKB &
726 ,
2.7970539148927666790146777142377958248692506522659876453701403269361881043056267681324094290119761876632337521337205e-01_RKB &
727 ,
1.2948496616886969327061143267908201832858740225994666397720863872465523497204230871562541816292084508948440200163443e-01_RKB ]
749 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
750 ,
2.0778495500789846760068940377324491347978440714517064971384573461986693844943520226910343227183698530560857645062738e-01_RKB &
751 ,
4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
752 ,
5.8608723546769113029414483825872959843678075060436095130499289319880373607444407464511674498935942098956811555121368e-01_RKB &
753 ,
7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
754 ,
8.6486442335976907278971278864092620121097230707408814860145771276706770813259572103585847859604590541475281326027862e-01_RKB &
755 ,
9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB &
756 ,
9.9145537112081263920685469752632851664204433837033470129108741357244173934653407235924503509626841760744349505339308e-01_RKB ]
778 [
2.0948214108472782801299917489171426369776208022370431671299800656137515132325648616816908211675949102392971459688215e-01_RKB &
779 ,
2.0443294007529889241416199923464908471651760418071835742447095312045467698546598879348374292009347554167803659293064e-01_RKB &
780 ,
1.9035057806478540991325640242101368282607807545535835588544088036744058072410212679605964605106377593834568683551139e-01_RKB &
781 ,
1.6900472663926790282658342659855028410624490030294424149734006755695680921619029112936702403855359908156070095656537e-01_RKB &
782 ,
1.4065325971552591874518959051023792039988975724799857556174546893312708093090950408097379122415555910759700350860143e-01_RKB &
783 ,
1.0479001032225018383987632254151801744375665421383061189339065133963746321576289524167571627509311333949422518201492e-01_RKB &
784 ,
6.3092092629978553290700663189204286665071157211550707113605545146983997477964874928199170264504441995865872491871943e-02_RKB &
785 ,
2.2935322010529224963732008058969591993560811275746992267507430254711815787976075946156368168156289483493617134063245e-02_RKB ]
884 [
1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
885 ,
4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
886 ,
6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
887 ,
8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
888 ,
9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB ]
910 [
2.9552422471475287017389299465133832942104671702685360135430802975599593821715232927035659579375421672271716440125256e-01_RKB &
911 ,
2.6926671930999635509122692156946935285975993846088379580056327624215343231917927676422663670925276075559581145036870e-01_RKB &
912 ,
2.1908636251598204399553493422816319245877187052267708988095654363519991065295128124268399317720219278659121687281289e-01_RKB &
913 ,
1.4945134915058059314577633965769733240255663966942736783547726875323865472663001094594726463473195191400575256104544e-01_RKB &
914 ,
6.6671344308688137593568809893331792857864834320158145128694881613412064084087101776785509685058877821090054714520419e-02_RKB ]
936 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
937 ,
1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
938 ,
2.9439286270146019813112660310386556616268662515695791864888229172724611166332737888445523178268237359119185139299872e-01_RKB &
939 ,
4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
940 ,
5.6275713466860468333900009927269414084301388194196695886034621458779266353216327549712087854169992422106448211158815e-01_RKB &
941 ,
6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
942 ,
7.8081772658641689706371757834504237716340752029815717974694859999505607982761420654526977234238996241110129779403362e-01_RKB &
943 ,
8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
944 ,
9.3015749135570822600120718005950834622516790998193924230349406866828415983091673055011194572851007884702013619684320e-01_RKB &
945 ,
9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB &
946 ,
9.9565716302580808073552728068900284792126058721947892436337916111757023046774867357152325996912076724298149077812671e-01_RKB ]
968 [
1.4944555400291690566493646838982120374523631668747280383560851873698964478511841925721030705689540264726493367634340e-01_RKB &
969 ,
1.4773910490133849137484151597206804552373162548520660451819195439885993016735696405732703959182882254268727823258502e-01_RKB &
970 ,
1.4277593857706008079709427313871706088597905653190555560741004743970770449909340027811131706283756428281146832304737e-01_RKB &
971 ,
1.3470921731147332592805400177170683276099191300855971406636668491320291400121282036676953159488271772384389604997640e-01_RKB &
972 ,
1.2349197626206585107795810983107415951230034952864832764467994120974054238975454689681538622363738230836484113389878e-01_RKB &
973 ,
1.0938715880229764189921059032580496027181329983434522007819675829826550372891432168683899432674553842507906611591517e-01_RKB &
974 ,
9.3125454583697605535065465083366344390018828880760031970085038760177735672200775237414123061615827474831165614953012e-02_RKB &
975 ,
7.5039674810919952767043140916190009395219382000910088173697048048430404342858495178813808730646554086856929327903059e-02_RKB &
976 ,
5.4755896574351996031381300244580176373721114058333557524432615804784098927818975325116301569003298086458722055550981e-02_RKB &
977 ,
3.2558162307964727478818972459389760617388939845662609571537504232714121820165498692381607605384626494546068817765276e-02_RKB &
978 ,
1.1694638867371874278064396062192048396217332481931888927598147525622222058064992651806736704969967250888097490233242e-02_RKB ]
1075 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1076 ,
2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1077 ,
3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1078 ,
5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1079 ,
7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1080 ,
8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1081 ,
9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1082 ,
9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB ]
1104 [
2.0257824192556127288062019996751931483866215800947735679670411605143539875474607409339344071278803213535148267082999e-01_RKB &
1105 ,
1.9843148532711157645611832644383932481869255995754199348473792792912479753343426813331499916481782320766020854889310e-01_RKB &
1106 ,
1.8616100001556221102680056186642282450622601227792840281549572731001325550269916061894976888609932360539977709001384e-01_RKB &
1107 ,
1.6626920581699393355320086048120881113090018009841290732186519056355356321227851771070517429241553621484461540657185e-01_RKB &
1108 ,
1.3957067792615431444780479451102832252085027531551124320239112863108844454190781168076825736357133363814908889327664e-01_RKB &
1109 ,
1.0715922046717193501186954668586930341554371575810198068702238912187799485231579972568585713760862404439808767837506e-01_RKB &
1110 ,
7.0366047488108124709267416450667338466708032754330719825907292914387055512874237044840452066693939219355489858595041e-02_RKB &
1111 ,
3.0753241996117268354628393577204417721748144833434074264228285504237189467117168039038770732399404002516991188859473e-02_RKB ]
1133 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1134 ,
1.0114206691871749902707423144739233878745105740164180495800189504151097862454083050931321451540380998341273193681967e-01_RKB &
1135 ,
2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1136 ,
2.9918000715316881216678002426638896266160338274382080184125545738918081102513884467602322020157243563662094470221235e-01_RKB &
1137 ,
3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1138 ,
4.8508186364023968069365574023235061286633893089407312129367943604080239955167155974371848690848595275551258416303565e-01_RKB &
1139 ,
5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1140 ,
6.5099674129741697053373589531327469254694822609259966708966160576093305841043840794460394747228060367236079289132544e-01_RKB &
1141 ,
7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1142 ,
7.9041850144246593296764929481794734686214051995697617332365280643308302974631807059994738664225445530963711137343440e-01_RKB &
1143 ,
8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1144 ,
8.9726453234408190088250965645449588283177871149442786763972687601078537721473771221195399661919716123038835639691946e-01_RKB &
1145 ,
9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1146 ,
9.6773907567913913425734797878433722528335733730013163797468062226335804249452174804319385048203118506304424717089291e-01_RKB &
1147 ,
9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB &
1148 ,
9.9800229869339706028517284015227120907340644231555723034839427970683348682837134566648979907760125278631896777136104e-01_RKB ]
1170 [
1.0133000701479154901737479276749254677092627259659629246734858372174107615774696665932418050683956749891773195816338e-01_RKB &
1171 ,
1.0076984552387559504494666261756972191634838013536373069278929029488122760822761077475060185965408326901925180106227e-01_RKB &
1172 ,
9.9173598721791959332393173484603131059567260816713281734860095693651563064308745717056680128223790739026832596087552e-02_RKB &
1173 ,
9.6642726983623678505179907627589335136656568630495198973407668882934392359962841826511402504664592185391687490319950e-02_RKB &
1174 ,
9.3126598170825321225486872747345718561927881321317330560285879189052002874531855060114908990458716740695847509343865e-02_RKB &
1175 ,
8.8564443056211770647275443693774303212266732690655967817996052574877144544749814260718837576325109922207832119243346e-02_RKB &
1176 ,
8.3080502823133021038289247286103789601554188253368717607281604875233630643885056057630789228337088859687986285569521e-02_RKB &
1177 ,
7.6849680757720378894432777482659006722109101167947000584089097112470821092034084418224731527690291913686588446455555e-02_RKB &
1178 ,
6.9854121318728258709520077099147475786045435140671549698798093177992675624987998849748628778570667518643649536771245e-02_RKB &
1179 ,
6.2009567800670640285139230960802932190400004210329723569147829395618376206272317333030584268303808639229575334680414e-02_RKB &
1180 ,
5.3481524690928087265343147239430296771554760947116739813222888752727413616259625439714812475198987513183153639571249e-02_RKB &
1181 ,
4.4589751324764876608227299373279690223256649667921096570980823211805450700059906366455036418897149593261561551176267e-02_RKB &
1182 ,
3.5346360791375846222037948478360048122630678992420820868148023340902501837247680978434662724296810081131106317333086e-02_RKB &
1183 ,
2.5460847326715320186874001019653359397271745046864640508377984982400903447009185267605205778819712848080691366407461e-02_RKB &
1184 ,
1.5007947329316122538374763075807268094639436437387634979291759700896494746154334398961710227490402528151677469993935e-02_RKB &
1185 ,
5.3774798729233489877920514301276498183080402431284197876486169536848635554354599213793172596490038991436925569025913e-03_RKB ]
1284 [
7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1285 ,
2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1286 ,
3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1287 ,
5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1288 ,
6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1289 ,
7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1290 ,
8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1291 ,
9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1292 ,
9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1293 ,
9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB ]
1315 [
1.5275338713072585069808433195509759349194864511237859727470104981759745316273778153557248783650390593544001842813788e-01_RKB &
1316 ,
1.4917298647260374678782873700196943669267990408136831649621121780984442259558678069396132603521048105170913854567338e-01_RKB &
1317 ,
1.4209610931838205132929832506716493303451541339202030333736708298382808749793436761694922428320058260133068573666201e-01_RKB &
1318 ,
1.3168863844917662689849449974816313491611051114698352699643649370885435642948093314355797518397262924510598005463625e-01_RKB &
1319 ,
1.1819453196151841731237737771138228700504121954896877544688995202017474835051151630572868782581901744606267543092317e-01_RKB &
1320 ,
1.0193011981724043503675013548034987616669165602339255626197161619685232202539434647534931576947985821375859035525483e-01_RKB &
1321 ,
8.3276741576704748724758143222046206100177828583163290744882060785693082894079419471375190843790839349096116111932764e-02_RKB &
1322 ,
6.2672048334109063569506535187041606351601076578436364099584345437974811033665678644563766056832203512603253399592073e-02_RKB &
1323 ,
4.0601429800386941331039952274932109879090639989951536817606854561832296750987328295538920623044384976189825709675075e-02_RKB &
1324 ,
1.7614007139152118311861962351852816362143105543336732524349326677348419259621847817403105542146097668703716227512570e-02_RKB ]
1346 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1347 ,
7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1348 ,
1.5260546524092267550522024102267752791167622481841730660174156703809133685751696356987995886397049724808931527012542e-01_RKB &
1349 ,
2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1350 ,
3.0162786811491300432055535685859226061539650501373092456926374427956957435978384116066498234762220215751079886015902e-01_RKB &
1351 ,
3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1352 ,
4.4359317523872510319999221349264010784010101082300309613315028346299543059315258601993479156987847429893626854030516e-01_RKB &
1353 ,
5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1354 ,
5.7514044681971031534294603658642513281381264014771682537415885495717468074720062012357788489049470208285175093670561e-01_RKB &
1355 ,
6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1356 ,
6.9323765633475138480549071184593153338642585141021417904687378454301191710739219011546672416325022748282227809465165e-01_RKB &
1357 ,
7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1358 ,
7.9504142883755119835063883327278794295938959911578029703855163894322697871710382866701777890251824617748545658564370e-01_RKB &
1359 ,
8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1360 ,
8.7827681125228197607744299511307846671124526828251164853898086998248145904743220740840261624245683876748360309079747e-01_RKB &
1361 ,
9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1362 ,
9.4082263383175475351998272221244338027429557377965291059536839973186796006557571220888218676776618448841584569497535e-01_RKB &
1363 ,
9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1364 ,
9.8150787745025025919334299472021694456725093981023759869077533318793098857465723460898060491887511355706497739384103e-01_RKB &
1365 ,
9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB &
1366 ,
9.9885903158827766383831557654586300999957020432629666866666860339324411793311982967839129772854179884971700274369367e-01_RKB ]
1388 [
7.6600711917999656445049901530101740827932500628670118055485349620314721456712029449597396569857880493210849110825276e-02_RKB &
1389 ,
7.6377867672080736705502835038061001800801036764945996714946431116936745542061941050008345047482501253320401746334511e-02_RKB &
1390 ,
7.5704497684556674659542775376616558263363155900414326194855223272348838596099414841886740468379707283366777797425290e-02_RKB &
1391 ,
7.4582875400499188986581418362487528616116493572092273080047040726969899567887364227664202642942357104526915332274625e-02_RKB &
1392 ,
7.3030690332786667495189417658913112760626845234552742380174250771849743831660040966804802312464527721645765620253776e-02_RKB &
1393 ,
7.1054423553444068305790361723210167412912159322210143921628270586407381879789525901086146473278095159807542174985045e-02_RKB &
1394 ,
6.8648672928521619345623411885367801715489704958239860400434264173923806029589970941711224257967651039544669425313433e-02_RKB &
1395 ,
6.5834597133618422111563556969397943147223506343381443709751749639944420314384296347503523810096842402960802728781816e-02_RKB &
1396 ,
6.2653237554781168025870122174254980585819744698897886186553324157100424088919284503451596742588386343548162830898103e-02_RKB &
1397 ,
5.9111400880639572374967220648594217136419365977042191748388047204015262840407696611508732839851952697839735487615776e-02_RKB &
1398 ,
5.5195105348285994744832372419777329194753456228153116909812131213177827707884692917845453999535518818940813085110223e-02_RKB &
1399 ,
5.0944573923728691932707670050344948664836365809262579747517140086119113476866735641054822574173198900379392130050979e-02_RKB &
1400 ,
4.6434821867497674720231880926107516842127071007077929289994127933243222585938804392953931185146446072587020288747981e-02_RKB &
1401 ,
4.1668873327973686263788305936894738043960843153010324860966353235271889596379726462208702081068715463576895020003842e-02_RKB &
1402 ,
3.6600169758200798030557240707211008487453496747498001651070009441973280061489266074044986901436324295513243878212345e-02_RKB &
1403 ,
3.1287306777032798958543119323800737887769280362813337359554598005322423266047996771926031069705049476071896145456496e-02_RKB &
1404 ,
2.5882133604951158834505067096153142999479118048674944526997797755374306421629440393392427198869345793286369198147609e-02_RKB &
1405 ,
2.0388373461266523598010231432754705122838627940185929365371868214433006532030353671253640300679157504987977281782909e-02_RKB &
1406 ,
1.4626169256971252983787960308868356163881050162249770342103474631076960029748751959380482484308382288261238476948520e-02_RKB &
1407 ,
8.6002698556429421986617879501023472521289227667077976622450602031426535362696437838448828009554532025301579670206091e-03_RKB &
1408 ,
3.0735837185205315012182932460309874880335046882543449198461628212114333665590378156706265241414469306987988292234740e-03_RKB ]
1507 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1508 ,
1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1509 ,
2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1510 ,
3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1511 ,
4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1512 ,
5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1513 ,
6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1514 ,
7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1515 ,
8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1516 ,
8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1517 ,
9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1518 ,
9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1519 ,
9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB ]
1541 [
1.2317605372671545120390287307905014243823362751815166539135219731691200794926142128460112517504958377310054583945994e-01_RKB &
1542 ,
1.2224244299031004168895951894585150583505924756305904090758008223203896721918010243033540891078906637115620156845304e-01_RKB &
1543 ,
1.1945576353578477222817812651290104739017670141372642551958788133518409022018773502442869720975271321374348568426235e-01_RKB &
1544 ,
1.1485825914571164833932554586955580864093619166818014959151499003148279667112542256534429898558156273250513652351744e-01_RKB &
1545 ,
1.0851962447426365311609395705011661934007758798672201615649430734883929279360844269339768350029654172135832773427565e-01_RKB &
1546 ,
1.0053594906705064420220689039268582698846609452814190706986904199941294815904602968195565620373258211755226681206658e-01_RKB &
1547 ,
9.1028261982963649811497220702891653380992558959334310970483768967017384678410526902484398142953718885872521590850372e-02_RKB &
1548 ,
8.0140700335001018013234959669111302290225732853675893716201462973612828934801289559457377714225318048243957479325813e-02_RKB &
1549 ,
6.8038333812356917207187185656707968554709494354636562615071226410003654051711473106651522969481873733098761760660898e-02_RKB &
1550 ,
5.4904695975835191925936891540473324160109985553111349048508498244593774678436511895711924079433444763756746828817613e-02_RKB &
1551 ,
4.0939156701306312655623487711645953660845783364104346504698414899297432880215512770478971055110424130123527015425511e-02_RKB &
1552 ,
2.6354986615032137261901815295299144935963281703322468755366165783870934008879499371529821528172928890350362464605104e-02_RKB &
1553 ,
1.1393798501026287947902964113234773603320526292909696448948061116189891729766743355923677112945033505688431618009664e-02_RKB ]
1575 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1576 ,
6.1544483005685078886546392366796631281724348039823545274305431751687279361558658545141048781022691067898008423227288e-02_RKB &
1577 ,
1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1578 ,
1.8371893942104889201596988875952841578528447834990555215034512653236752851109815617651867160645591242103823539931527e-01_RKB &
1579 ,
2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1580 ,
3.0308953893110783016747890998033932920041937876655194685731578452573120372337209717349617882111662416355753711853559e-01_RKB &
1581 ,
3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1582 ,
4.1788538219303774885181439459457248709336998140069528034955785068796932076966599548717224205109797297615032607570119e-01_RKB &
1583 ,
4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1584 ,
5.2632528433471918259962377815801017803683252320191114313002425180471455022502695302371008520604638341970901082293650e-01_RKB &
1585 ,
5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1586 ,
6.2681009901031741278812268162451788101954628995068510806525222008437260184181183053045236423845198752346149030569920e-01_RKB &
1587 ,
6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1588 ,
7.1776640681308438818665407977329778059771167555515582423493486823991612820974965089522905953765860328116692570706602e-01_RKB &
1589 ,
7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1590 ,
7.9787379799850005941041090499430656940863230009338267661706934499488650817643824077118950314443984031474353711531825e-01_RKB &
1591 ,
8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1592 ,
8.6584706529327559544899696958834008820284409402823690293965213246691432948180280120756708738064779055576005302835351e-01_RKB &
1593 ,
8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1594 ,
9.2074711528170156174634608454633063157457035996277199700642836501131385042631212407808952281702820179915510491592339e-01_RKB &
1595 ,
9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1596 ,
9.6161498642584251241813003366016724169212642963709676666624520141292893281185666917636407790823210892689040877316178e-01_RKB &
1597 ,
9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1598 ,
9.8803579453407724763733101457740622707248415209160748131449972199405186821347293686245404742032360498210710718706868e-01_RKB &
1599 ,
9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB &
1600 ,
9.9926210499260983419345748654034059370452496042279618586228697762904524428167719073818746102238075978747461480736921e-01_RKB ]
1622 [
6.1580818067832935078759824240064553190436936903140808056908996403358367244202623293256774502185186717703954810463664e-02_RKB &
1623 ,
6.1471189871425316661544131965264177586537962876885022711111683500151700796198726558483367566537422877227096643444043e-02_RKB &
1624 ,
6.1128509717053048305859030416292711922678552321960938357322028070390133769952032831204895569347757809858568165047769e-02_RKB &
1625 ,
6.0539455376045862945360267517565427162312365710457079923487043144554747810689514408013582515489930908693681447570811e-02_RKB &
1626 ,
5.9720340324174059979099291932561853835363045476189975483372207816149988460708299020779612375010639778624011960832019e-02_RKB &
1627 ,
5.8689680022394207961974175856787764139795646254828315293243700305012569486054157617049685031506591863121580010947248e-02_RKB &
1628 ,
5.7437116361567832853582693939506471994832856823896682976509412313367495727224381199978598247737089593472710899482737e-02_RKB &
1629 ,
5.5950811220412317308240686382747346820271035112771802428932791066115158268338607019365831655460314732208940609352540e-02_RKB &
1630 ,
5.4251129888545490144543370459875606826076838441263383072163293312936923476650934130242315028422047795830492882862973e-02_RKB &
1631 ,
5.2362885806407475864366712137872714887351550723707596350905793656046659248541276597504566497990926306481919129870507e-02_RKB &
1632 ,
5.0277679080715671963325259433440084440587630604775975142050968279743014641141402310302584542633557037153607386127936e-02_RKB &
1633 ,
4.7982537138836713906392255756914754983592207423271169651235865196757913880334117810235517477328110033499422471098658e-02_RKB &
1634 ,
4.5502913049921788909870584752660393043707768935695327316724254392794299567957035458208970599641697203261236226745020e-02_RKB &
1635 ,
4.2872845020170049476895792439495161101999504199883328877919242515738957655253932048951366960802592343905647433925806e-02_RKB &
1636 ,
4.0083825504032382074839284467075646401410549266591308713115878386835777315058451955614116158949614066927183232852042e-02_RKB &
1637 ,
3.7116271483415543560330625367619875995997802688047764805628702762773009669395760582294525748583875707140577080663373e-02_RKB &
1638 ,
3.4002130274329337836748795229551203225670528250050443083264193121524339063344855010257660547708022429300203676502386e-02_RKB &
1639 ,
3.0792300167387488891109020215228585600877162393292487644544830559965388047996492709248618249084851477787538356572832e-02_RKB &
1640 ,
2.7475317587851737802948455517811078614796013288710603199613621069727810352835469926107822047433566792405123805901196e-02_RKB &
1641 ,
2.4009945606953216220092489164881081392931528209659330290734972342536012282191913069778658241972047765300060007037359e-02_RKB &
1642 ,
2.0435371145882835456568292235938973678758006097668937220074531550163622566841885855957623103354443247806459277197725e-02_RKB &
1643 ,
1.6847817709128298231516667536336315840402654624706139411175769276842182270078960078544597372646532637619276509222462e-02_RKB &
1644 ,
1.3236229195571674813656405846976238077578084997863654732213860488560614587634395544002156258192582265590155862296710e-02_RKB &
1645 ,
9.4739733861741516072077105236553238716453268483726334971394029603529306140359023187904705754719643032594360138998941e-03_RKB &
1646 ,
5.5619321353567137580402369010655220701769295496290984052961210793810038857581724171021610100708799763006942755331129e-03_RKB &
1647 ,
1.9873838923303159265078518828434098894299804282505973837653346298985629336820118753523093675303476883723992297810124e-03_RKB ]
1746 [
5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1747 ,
1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1748 ,
2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1749 ,
3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1750 ,
4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1751 ,
5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1752 ,
6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1753 ,
6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1754 ,
7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1755 ,
8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1756 ,
8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1757 ,
9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1758 ,
9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1759 ,
9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1760 ,
9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB ]
1782 [
1.0285265289355884034128563670541504386837555706492822258631898667601623865660942939262884632188870916503815852709086e-01_RKB &
1783 ,
1.0176238974840550459642895216855404463270628948712684086426094541964251360531767494547599781978391198881693385887696e-01_RKB &
1784 ,
9.9593420586795267062780282103569476529869263666704277221365146183946660389908809018092299289324184705373523229592037e-02_RKB &
1785 ,
9.6368737174644259639468626351809865096406461430160245912994275732837534742003123724951247818104195363343093583583429e-02_RKB &
1786 ,
9.2122522237786128717632707087618767196913234418234107527675047001973047070094168298464052916811907158954949394100501e-02_RKB &
1787 ,
8.6899787201082979802387530715125702576753328743545344012222129882153582254261494247955033509639105330215477601953921e-02_RKB &
1788 ,
8.0755895229420215354694938460529730875892803708439299890258593706051180567026345604212402769217808080749416147400962e-02_RKB &
1789 ,
7.3755974737705206268243850022190734153770526037049438941269182374599399314635211710401352716638183270192254236882630e-02_RKB &
1790 ,
6.5974229882180495128128515115962361237442953656660378967031516042143672466094179365819913911598737439478205808271237e-02_RKB &
1791 ,
5.7493156217619066481721689402056128797120670721763134548715799003232147409954376925211999650950125355559974348279846e-02_RKB &
1792 ,
4.8402672830594052902938140422807517815271809197372736345191936791805425677102152797767439563562263454374645955072007e-02_RKB &
1793 ,
3.8799192569627049596801936446347692033200976766395352107732789705946970952769793919055026279035105656340228558382274e-02_RKB &
1794 ,
2.8784707883323369349719179611292043639588894546287496474180122608145988940013933101730206711484171554940392262251283e-02_RKB &
1795 ,
1.8466468311090959142302131912047269096206533968181403371298365514585599521307973654080519029675417955638095832046164e-02_RKB &
1796 ,
7.9681924961666056154658834746736224504806965871517212294851633569200384329013332941536616922861735209846506562158817e-03_RKB ]
1819 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1820 ,
5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1821 ,
1.0280693796673703014709675131800059247190133296515840552101946914632788253917872738234797140786490207720254922664913e-01_RKB &
1822 ,
1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1823 ,
2.0452511668230989143895767100202470952410426459556377447604465028350321894663245495592565235317147819577892124850607e-01_RKB &
1824 ,
2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1825 ,
3.0407320227362507737267710719925655353115778980946272844421536998312150442387767304001423699909778588529370119457430e-01_RKB &
1826 ,
3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1827 ,
4.0040125483039439253547621154266063361104593297078395983186610656429170689311759061175527015710247383961903284673474e-01_RKB &
1828 ,
4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1829 ,
4.9248046786177857499369306120770879564426564096318697026073340982988422546396352776837047452262025983265531109327026e-01_RKB &
1830 ,
5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1831 ,
5.7934523582636169175602493217254049590705158881215289208126016612312833567812241903809970751783808208940322061083509e-01_RKB &
1832 ,
6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1833 ,
6.6006106412662696137005366814927075303835037480883390955067197339904937499734522076788020517029688190998858739703079e-01_RKB &
1834 ,
6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1835 ,
7.3379006245322680472617113136952764566938172775468549208701399518300016463613325382024664531597318795933262446521430e-01_RKB &
1836 ,
7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1837 ,
7.9972783582183908301366894232268324073569842937778450923647349548686662567326007229195202524185356472023967927713548e-01_RKB &
1838 ,
8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1839 ,
8.5720523354606109895865851065894385682080017062359612850504551739119887225712932688031120704657195642614071367390794e-01_RKB &
1840 ,
8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1841 ,
9.0557330769990779854652255892595831956897536366222841356404766397803760239449631913585074426842574155323901785046522e-01_RKB &
1842 ,
9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1843 ,
9.4437444474855997941583132403743912158564371496498093181748940139520917000657342753448871376849848523800667868447591e-01_RKB &
1844 ,
9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1845 ,
9.7311632250112626837469386842370688488763796428343933853755850185624118958166838288308561708261486365954975485787212e-01_RKB &
1846 ,
9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1847 ,
9.9163099687040459485862836610948572485050033374616325510019923349807489603260796605556191495843575227494654783755353e-01_RKB &
1848 ,
9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB &
1849 ,
9.9948441005049063757132589570581081946887394701850801923632642830748016674843587830656468823145435723317885056396548e-01_RKB ]
1871 [
5.1494729429451567558340433647099307532736880396464168074637323362474083844397567724480716864880173808112573901197920e-02_RKB &
1872 ,
5.1426128537459025933862879215781259829552034862395987263855824172761589259406892072066110681184224608133314131500422e-02_RKB &
1873 ,
5.1221547849258772170656282604944208251146952425246327553509056805511015401279553971190412722969308620984161625812560e-02_RKB &
1874 ,
5.0881795898749606492297473049804691853384914260919239920771942080972542646780575571132056254070929858650733836163479e-02_RKB &
1875 ,
5.0405921402782346840893085653585028902197018251622233664243959211066713308635283713447747907973700791599900911248852e-02_RKB &
1876 ,
4.9795683427074206357811569379942328539209602813696108951047392842948482646220377655098341924089250200477846596263918e-02_RKB &
1877 ,
4.9055434555029778887528165367238173605887405295296569579490717901328215644590555247522873065246297467067324397612445e-02_RKB &
1878 ,
4.8185861757087129140779492298304592605799236108429800057373350872433793583969368428942672063270298939865425225579922e-02_RKB &
1879 ,
4.7185546569299153945261478181099486482884807300628457194141861551725533289490897029020276525603515502104799540544222e-02_RKB &
1880 ,
4.6059238271006988116271735559373580594692875571824924004732379492293604006446052672252973438978639166425766841417488e-02_RKB &
1881 ,
4.4814800133162663192355551616723243757431392796373009889680201194063503947907899189061064792111919040540351834527742e-02_RKB &
1882 ,
4.3452539701356069316831728117073258074603308631703168064888805495738640839573863333942084117196541456054957383622173e-02_RKB &
1883 ,
4.1969810215164246147147541285969757790088656718992374820388720323852655511200365790379948462006156953358103259681948e-02_RKB &
1884 ,
4.0374538951535959111995279752468114216126062126030255633998289613810846761059740961836828802959573901107306640876603e-02_RKB &
1885 ,
3.8678945624727592950348651532281050250923629821553846790376130679337402056620700554139109487533759557982632153728099e-02_RKB &
1886 ,
3.6882364651821229223911065617135967736955164781030337670005198584196134970154169862584193360751243227989492571664973e-02_RKB &
1887 ,
3.4979338028060024137499670731467875097226912794818719972208457232177786702008744219498470603846784465175225933802357e-02_RKB &
1888 ,
3.2981447057483726031814191016853927510599291213858385714519347641452316582381008804994515341969205985818543200837577e-02_RKB &
1889 ,
3.0907257562387762472884252943092272635270458523807153426840486964022086189874056947717446328187131273807982629114591e-02_RKB &
1890 ,
2.8754048765041292843978785354334211144679160542074930035102280759132174815469834227854660515366003136772757344886331e-02_RKB &
1891 ,
2.6509954882333101610601709335075414366517579522748565770867438338472138903658077617652522759934474895733739329287706e-02_RKB &
1892 ,
2.4191162078080601365686370725232026760391377828182462432228943562944885267501070688006470962871743661192935455117297e-02_RKB &
1893 ,
2.1828035821609192297167485738338993401507296056834912773630422358720439403382559079356058602393879803560534375378340e-02_RKB &
1894 ,
1.9414141193942381173408951050128455851421014191431525770276066536497179079025540486072726114628763606440143557769099e-02_RKB &
1895 ,
1.6920889189053272627572289420322092368566703783835191139883410840546679978551861043620089451681146020853650713611444e-02_RKB &
1896 ,
1.4369729507045804812451432443580010195841899895001505873565899403000198662495821906144274682894222591414503342336172e-02_RKB &
1897 ,
1.1823015253496341742232898853250592896264406250607818326302431548265365155855182739401700032519141448997853772603766e-02_RKB &
1898 ,
9.2732796595177634284411468920243604212700249381931076964956469143626665557434385492325784596343112153704094886248672e-03_RKB &
1899 ,
6.6307039159312921733198263697501681336283882177812585973955597357837568277731921327731815844512598157843672104469554e-03_RKB &
1900 ,
3.8904611270998840512672018445155032785151429848864649214200101281144733676455451061226273655941038347210163533085954e-03_RKB &
1901 ,
1.3890136986770076245515912267596996810488412919632724534411055332301367130989865366956251556423820479579333920310978e-03_RKB ]
1974 PURE module subroutine setNodeWeightGKFixed_RK5(nodeK, weightK, weightG)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK5
1979 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
1984 PURE module subroutine setNodeWeightGKFixed_RK4(nodeK, weightK, weightG)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK4
1989 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
1994 PURE module subroutine setNodeWeightGKFixed_RK3(nodeK, weightK, weightG)
1995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1996 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK3
1999 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
2004 PURE module subroutine setNodeWeightGKFixed_RK2(nodeK, weightK, weightG)
2005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2006 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK2
2009 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
2014 PURE module subroutine setNodeWeightGKFixed_RK1(nodeK, weightK, weightG)
2015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2016 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK1
2019 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
2026 PURE module subroutine setNodeWeightGKAlloc_RK5(order, nodeK, weightK, weightG)
2027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2028 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK5
2031 integer(IK) ,
intent(in) :: order
2032 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2037 PURE module subroutine setNodeWeightGKAlloc_RK4(order, nodeK, weightK, weightG)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK4
2042 integer(IK) ,
intent(in) :: order
2043 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2048 PURE module subroutine setNodeWeightGKAlloc_RK3(order, nodeK, weightK, weightG)
2049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2050 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK3
2053 integer(IK) ,
intent(in) :: order
2054 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2059 PURE module subroutine setNodeWeightGKAlloc_RK2(order, nodeK, weightK, weightG)
2060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2061 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK2
2064 integer(IK) ,
intent(in) :: order
2065 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2070 PURE module subroutine setNodeWeightGKAlloc_RK1(order, nodeK, weightK, weightG)
2071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2072 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK1
2075 integer(IK) ,
intent(in) :: order
2076 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2210 module function getQuadGK15_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2212 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK5
2215 procedure(
real(RKC)) :: getFunc
2216 real(RKC) ,
intent(in) :: lb
2217 real(RKC) ,
intent(in) :: ub
2218 type(GK15_type) ,
intent(in) :: qrule
2219 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2225 module function getQuadGK15_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK4
2230 procedure(
real(RKC)) :: getFunc
2231 real(RKC) ,
intent(in) :: lb
2232 real(RKC) ,
intent(in) :: ub
2233 type(GK15_type) ,
intent(in) :: qrule
2234 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2240 module function getQuadGK15_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2242 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK3
2245 procedure(
real(RKC)) :: getFunc
2246 real(RKC) ,
intent(in) :: lb
2247 real(RKC) ,
intent(in) :: ub
2248 type(GK15_type) ,
intent(in) :: qrule
2249 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2255 module function getQuadGK15_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2257 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK2
2260 procedure(
real(RKC)) :: getFunc
2261 real(RKC) ,
intent(in) :: lb
2262 real(RKC) ,
intent(in) :: ub
2263 type(GK15_type) ,
intent(in) :: qrule
2264 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2270 module function getQuadGK15_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK1
2275 procedure(
real(RKC)) :: getFunc
2276 real(RKC) ,
intent(in) :: lb
2277 real(RKC) ,
intent(in) :: ub
2278 type(GK15_type) ,
intent(in) :: qrule
2279 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2287 module function getQuadGK15_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2289 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK5
2292 procedure(
real(RKC)) :: getFunc
2293 real(RKC) ,
intent(in) :: lb
2294 type(pinf_type) ,
intent(in) :: ub
2295 type(GK15_type) ,
intent(in) :: qrule
2296 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2302 module function getQuadGK15_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2304 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK4
2307 procedure(
real(RKC)) :: getFunc
2308 real(RKC) ,
intent(in) :: lb
2309 type(pinf_type) ,
intent(in) :: ub
2310 type(GK15_type) ,
intent(in) :: qrule
2311 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2317 module function getQuadGK15_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2319 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK3
2322 procedure(
real(RKC)) :: getFunc
2323 real(RKC) ,
intent(in) :: lb
2324 type(pinf_type) ,
intent(in) :: ub
2325 type(GK15_type) ,
intent(in) :: qrule
2326 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2332 module function getQuadGK15_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2334 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK2
2337 procedure(
real(RKC)) :: getFunc
2338 real(RKC) ,
intent(in) :: lb
2339 type(pinf_type) ,
intent(in) :: ub
2340 type(GK15_type) ,
intent(in) :: qrule
2341 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2347 module function getQuadGK15_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK1
2352 procedure(
real(RKC)) :: getFunc
2353 real(RKC) ,
intent(in) :: lb
2354 type(pinf_type) ,
intent(in) :: ub
2355 type(GK15_type) ,
intent(in) :: qrule
2356 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2364 module function getQuadGK15_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2366 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK5
2369 procedure(
real(RKC)) :: getFunc
2370 type(ninf_type) ,
intent(in) :: lb
2371 real(RKC) ,
intent(in) :: ub
2372 type(GK15_type) ,
intent(in) :: qrule
2373 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2379 module function getQuadGK15_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK4
2384 procedure(
real(RKC)) :: getFunc
2385 type(ninf_type) ,
intent(in) :: lb
2386 real(RKC) ,
intent(in) :: ub
2387 type(GK15_type) ,
intent(in) :: qrule
2388 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2394 module function getQuadGK15_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2396 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK3
2399 procedure(
real(RKC)) :: getFunc
2400 type(ninf_type) ,
intent(in) :: lb
2401 real(RKC) ,
intent(in) :: ub
2402 type(GK15_type) ,
intent(in) :: qrule
2403 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2409 module function getQuadGK15_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2411 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK2
2414 procedure(
real(RKC)) :: getFunc
2415 type(ninf_type) ,
intent(in) :: lb
2416 real(RKC) ,
intent(in) :: ub
2417 type(GK15_type) ,
intent(in) :: qrule
2418 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2424 module function getQuadGK15_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK1
2429 procedure(
real(RKC)) :: getFunc
2430 type(ninf_type) ,
intent(in) :: lb
2431 real(RKC) ,
intent(in) :: ub
2432 type(GK15_type) ,
intent(in) :: qrule
2433 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2441 module function getQuadGK15_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2443 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK5
2446 procedure(
real(RKC)) :: getFunc
2447 type(ninf_type) ,
intent(in) :: lb
2448 type(pinf_type) ,
intent(in) :: ub
2449 type(GK15_type) ,
intent(in) :: qrule
2450 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2456 module function getQuadGK15_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2458 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK4
2461 procedure(
real(RKC)) :: getFunc
2462 type(ninf_type) ,
intent(in) :: lb
2463 type(pinf_type) ,
intent(in) :: ub
2464 type(GK15_type) ,
intent(in) :: qrule
2465 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2471 module function getQuadGK15_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK3
2476 procedure(
real(RKC)) :: getFunc
2477 type(ninf_type) ,
intent(in) :: lb
2478 type(pinf_type) ,
intent(in) :: ub
2479 type(GK15_type) ,
intent(in) :: qrule
2480 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2486 module function getQuadGK15_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2488 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK2
2491 procedure(
real(RKC)) :: getFunc
2492 type(ninf_type) ,
intent(in) :: lb
2493 type(pinf_type) ,
intent(in) :: ub
2494 type(GK15_type) ,
intent(in) :: qrule
2495 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2501 module function getQuadGK15_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2503 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK1
2506 procedure(
real(RKC)) :: getFunc
2507 type(ninf_type) ,
intent(in) :: lb
2508 type(pinf_type) ,
intent(in) :: ub
2509 type(GK15_type) ,
intent(in) :: qrule
2510 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2526 module function getQuadGK21_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2528 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK5
2531 procedure(
real(RKC)) :: getFunc
2532 real(RKC) ,
intent(in) :: lb
2533 real(RKC) ,
intent(in) :: ub
2534 type(GK21_type) ,
intent(in) :: qrule
2535 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2541 module function getQuadGK21_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2543 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK4
2546 procedure(
real(RKC)) :: getFunc
2547 real(RKC) ,
intent(in) :: lb
2548 real(RKC) ,
intent(in) :: ub
2549 type(GK21_type) ,
intent(in) :: qrule
2550 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2556 module function getQuadGK21_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK3
2561 procedure(
real(RKC)) :: getFunc
2562 real(RKC) ,
intent(in) :: lb
2563 real(RKC) ,
intent(in) :: ub
2564 type(GK21_type) ,
intent(in) :: qrule
2565 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2571 module function getQuadGK21_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2573 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK2
2576 procedure(
real(RKC)) :: getFunc
2577 real(RKC) ,
intent(in) :: lb
2578 real(RKC) ,
intent(in) :: ub
2579 type(GK21_type) ,
intent(in) :: qrule
2580 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2586 module function getQuadGK21_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2588 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK1
2591 procedure(
real(RKC)) :: getFunc
2592 real(RKC) ,
intent(in) :: lb
2593 real(RKC) ,
intent(in) :: ub
2594 type(GK21_type) ,
intent(in) :: qrule
2595 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2603 module function getQuadGK21_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK5
2608 procedure(
real(RKC)) :: getFunc
2609 real(RKC) ,
intent(in) :: lb
2610 type(pinf_type) ,
intent(in) :: ub
2611 type(GK21_type) ,
intent(in) :: qrule
2612 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2618 module function getQuadGK21_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2620 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK4
2623 procedure(
real(RKC)) :: getFunc
2624 real(RKC) ,
intent(in) :: lb
2625 type(pinf_type) ,
intent(in) :: ub
2626 type(GK21_type) ,
intent(in) :: qrule
2627 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2633 module function getQuadGK21_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK3
2638 procedure(
real(RKC)) :: getFunc
2639 real(RKC) ,
intent(in) :: lb
2640 type(pinf_type) ,
intent(in) :: ub
2641 type(GK21_type) ,
intent(in) :: qrule
2642 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2648 module function getQuadGK21_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2650 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK2
2653 procedure(
real(RKC)) :: getFunc
2654 real(RKC) ,
intent(in) :: lb
2655 type(pinf_type) ,
intent(in) :: ub
2656 type(GK21_type) ,
intent(in) :: qrule
2657 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2663 module function getQuadGK21_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2665 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK1
2668 procedure(
real(RKC)) :: getFunc
2669 real(RKC) ,
intent(in) :: lb
2670 type(pinf_type) ,
intent(in) :: ub
2671 type(GK21_type) ,
intent(in) :: qrule
2672 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2680 module function getQuadGK21_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2682 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK5
2685 procedure(
real(RKC)) :: getFunc
2686 type(ninf_type) ,
intent(in) :: lb
2687 real(RKC) ,
intent(in) :: ub
2688 type(GK21_type) ,
intent(in) :: qrule
2689 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2695 module function getQuadGK21_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2697 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK4
2700 procedure(
real(RKC)) :: getFunc
2701 type(ninf_type) ,
intent(in) :: lb
2702 real(RKC) ,
intent(in) :: ub
2703 type(GK21_type) ,
intent(in) :: qrule
2704 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2710 module function getQuadGK21_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2712 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK3
2715 procedure(
real(RKC)) :: getFunc
2716 type(ninf_type) ,
intent(in) :: lb
2717 real(RKC) ,
intent(in) :: ub
2718 type(GK21_type) ,
intent(in) :: qrule
2719 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2725 module function getQuadGK21_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2727 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK2
2730 procedure(
real(RKC)) :: getFunc
2731 type(ninf_type) ,
intent(in) :: lb
2732 real(RKC) ,
intent(in) :: ub
2733 type(GK21_type) ,
intent(in) :: qrule
2734 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2740 module function getQuadGK21_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2742 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK1
2745 procedure(
real(RKC)) :: getFunc
2746 type(ninf_type) ,
intent(in) :: lb
2747 real(RKC) ,
intent(in) :: ub
2748 type(GK21_type) ,
intent(in) :: qrule
2749 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2757 module function getQuadGK21_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2759 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK5
2762 procedure(
real(RKC)) :: getFunc
2763 type(ninf_type) ,
intent(in) :: lb
2764 type(pinf_type) ,
intent(in) :: ub
2765 type(GK21_type) ,
intent(in) :: qrule
2766 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2772 module function getQuadGK21_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2774 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK4
2777 procedure(
real(RKC)) :: getFunc
2778 type(ninf_type) ,
intent(in) :: lb
2779 type(pinf_type) ,
intent(in) :: ub
2780 type(GK21_type) ,
intent(in) :: qrule
2781 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2787 module function getQuadGK21_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2789 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK3
2792 procedure(
real(RKC)) :: getFunc
2793 type(ninf_type) ,
intent(in) :: lb
2794 type(pinf_type) ,
intent(in) :: ub
2795 type(GK21_type) ,
intent(in) :: qrule
2796 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2802 module function getQuadGK21_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2804 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK2
2807 procedure(
real(RKC)) :: getFunc
2808 type(ninf_type) ,
intent(in) :: lb
2809 type(pinf_type) ,
intent(in) :: ub
2810 type(GK21_type) ,
intent(in) :: qrule
2811 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2817 module function getQuadGK21_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2819 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK1
2822 procedure(
real(RKC)) :: getFunc
2823 type(ninf_type) ,
intent(in) :: lb
2824 type(pinf_type) ,
intent(in) :: ub
2825 type(GK21_type) ,
intent(in) :: qrule
2826 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2842 module function getQuadGK31_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK5
2847 procedure(
real(RKC)) :: getFunc
2848 real(RKC) ,
intent(in) :: lb
2849 real(RKC) ,
intent(in) :: ub
2850 type(GK31_type) ,
intent(in) :: qrule
2851 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2857 module function getQuadGK31_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2859 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK4
2862 procedure(
real(RKC)) :: getFunc
2863 real(RKC) ,
intent(in) :: lb
2864 real(RKC) ,
intent(in) :: ub
2865 type(GK31_type) ,
intent(in) :: qrule
2866 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2872 module function getQuadGK31_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2874 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK3
2877 procedure(
real(RKC)) :: getFunc
2878 real(RKC) ,
intent(in) :: lb
2879 real(RKC) ,
intent(in) :: ub
2880 type(GK31_type) ,
intent(in) :: qrule
2881 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2887 module function getQuadGK31_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2889 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK2
2892 procedure(
real(RKC)) :: getFunc
2893 real(RKC) ,
intent(in) :: lb
2894 real(RKC) ,
intent(in) :: ub
2895 type(GK31_type) ,
intent(in) :: qrule
2896 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2902 module function getQuadGK31_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2904 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK1
2907 procedure(
real(RKC)) :: getFunc
2908 real(RKC) ,
intent(in) :: lb
2909 real(RKC) ,
intent(in) :: ub
2910 type(GK31_type) ,
intent(in) :: qrule
2911 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2919 module function getQuadGK31_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2921 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK5
2924 procedure(
real(RKC)) :: getFunc
2925 real(RKC) ,
intent(in) :: lb
2926 type(pinf_type) ,
intent(in) :: ub
2927 type(GK31_type) ,
intent(in) :: qrule
2928 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2934 module function getQuadGK31_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK4
2939 procedure(
real(RKC)) :: getFunc
2940 real(RKC) ,
intent(in) :: lb
2941 type(pinf_type) ,
intent(in) :: ub
2942 type(GK31_type) ,
intent(in) :: qrule
2943 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2949 module function getQuadGK31_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2951 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK3
2954 procedure(
real(RKC)) :: getFunc
2955 real(RKC) ,
intent(in) :: lb
2956 type(pinf_type) ,
intent(in) :: ub
2957 type(GK31_type) ,
intent(in) :: qrule
2958 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2964 module function getQuadGK31_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2966 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK2
2969 procedure(
real(RKC)) :: getFunc
2970 real(RKC) ,
intent(in) :: lb
2971 type(pinf_type) ,
intent(in) :: ub
2972 type(GK31_type) ,
intent(in) :: qrule
2973 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2979 module function getQuadGK31_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2981 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK1
2984 procedure(
real(RKC)) :: getFunc
2985 real(RKC) ,
intent(in) :: lb
2986 type(pinf_type) ,
intent(in) :: ub
2987 type(GK31_type) ,
intent(in) :: qrule
2988 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2996 module function getQuadGK31_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK5
3001 procedure(
real(RKC)) :: getFunc
3002 type(ninf_type) ,
intent(in) :: lb
3003 real(RKC) ,
intent(in) :: ub
3004 type(GK31_type) ,
intent(in) :: qrule
3005 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3011 module function getQuadGK31_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK4
3016 procedure(
real(RKC)) :: getFunc
3017 type(ninf_type) ,
intent(in) :: lb
3018 real(RKC) ,
intent(in) :: ub
3019 type(GK31_type) ,
intent(in) :: qrule
3020 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3026 module function getQuadGK31_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3028 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK3
3031 procedure(
real(RKC)) :: getFunc
3032 type(ninf_type) ,
intent(in) :: lb
3033 real(RKC) ,
intent(in) :: ub
3034 type(GK31_type) ,
intent(in) :: qrule
3035 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3041 module function getQuadGK31_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK2
3046 procedure(
real(RKC)) :: getFunc
3047 type(ninf_type) ,
intent(in) :: lb
3048 real(RKC) ,
intent(in) :: ub
3049 type(GK31_type) ,
intent(in) :: qrule
3050 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3056 module function getQuadGK31_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3058 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK1
3061 procedure(
real(RKC)) :: getFunc
3062 type(ninf_type) ,
intent(in) :: lb
3063 real(RKC) ,
intent(in) :: ub
3064 type(GK31_type) ,
intent(in) :: qrule
3065 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3073 module function getQuadGK31_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK5
3078 procedure(
real(RKC)) :: getFunc
3079 type(ninf_type) ,
intent(in) :: lb
3080 type(pinf_type) ,
intent(in) :: ub
3081 type(GK31_type) ,
intent(in) :: qrule
3082 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3088 module function getQuadGK31_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3090 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK4
3093 procedure(
real(RKC)) :: getFunc
3094 type(ninf_type) ,
intent(in) :: lb
3095 type(pinf_type) ,
intent(in) :: ub
3096 type(GK31_type) ,
intent(in) :: qrule
3097 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3103 module function getQuadGK31_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3105 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK3
3108 procedure(
real(RKC)) :: getFunc
3109 type(ninf_type) ,
intent(in) :: lb
3110 type(pinf_type) ,
intent(in) :: ub
3111 type(GK31_type) ,
intent(in) :: qrule
3112 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3118 module function getQuadGK31_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3120 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK2
3123 procedure(
real(RKC)) :: getFunc
3124 type(ninf_type) ,
intent(in) :: lb
3125 type(pinf_type) ,
intent(in) :: ub
3126 type(GK31_type) ,
intent(in) :: qrule
3127 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3133 module function getQuadGK31_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3135 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK1
3138 procedure(
real(RKC)) :: getFunc
3139 type(ninf_type) ,
intent(in) :: lb
3140 type(pinf_type) ,
intent(in) :: ub
3141 type(GK31_type) ,
intent(in) :: qrule
3142 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3158 module function getQuadGK41_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3160 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK5
3163 procedure(
real(RKC)) :: getFunc
3164 real(RKC) ,
intent(in) :: lb
3165 real(RKC) ,
intent(in) :: ub
3166 type(GK41_type) ,
intent(in) :: qrule
3167 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3173 module function getQuadGK41_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3175 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK4
3178 procedure(
real(RKC)) :: getFunc
3179 real(RKC) ,
intent(in) :: lb
3180 real(RKC) ,
intent(in) :: ub
3181 type(GK41_type) ,
intent(in) :: qrule
3182 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3188 module function getQuadGK41_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3190 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK3
3193 procedure(
real(RKC)) :: getFunc
3194 real(RKC) ,
intent(in) :: lb
3195 real(RKC) ,
intent(in) :: ub
3196 type(GK41_type) ,
intent(in) :: qrule
3197 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3203 module function getQuadGK41_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3205 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK2
3208 procedure(
real(RKC)) :: getFunc
3209 real(RKC) ,
intent(in) :: lb
3210 real(RKC) ,
intent(in) :: ub
3211 type(GK41_type) ,
intent(in) :: qrule
3212 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3218 module function getQuadGK41_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3220 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK1
3223 procedure(
real(RKC)) :: getFunc
3224 real(RKC) ,
intent(in) :: lb
3225 real(RKC) ,
intent(in) :: ub
3226 type(GK41_type) ,
intent(in) :: qrule
3227 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3235 module function getQuadGK41_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3237 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK5
3240 procedure(
real(RKC)) :: getFunc
3241 real(RKC) ,
intent(in) :: lb
3242 type(pinf_type) ,
intent(in) :: ub
3243 type(GK41_type) ,
intent(in) :: qrule
3244 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3250 module function getQuadGK41_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3252 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK4
3255 procedure(
real(RKC)) :: getFunc
3256 real(RKC) ,
intent(in) :: lb
3257 type(pinf_type) ,
intent(in) :: ub
3258 type(GK41_type) ,
intent(in) :: qrule
3259 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3265 module function getQuadGK41_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3267 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK3
3270 procedure(
real(RKC)) :: getFunc
3271 real(RKC) ,
intent(in) :: lb
3272 type(pinf_type) ,
intent(in) :: ub
3273 type(GK41_type) ,
intent(in) :: qrule
3274 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3280 module function getQuadGK41_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3282 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK2
3285 procedure(
real(RKC)) :: getFunc
3286 real(RKC) ,
intent(in) :: lb
3287 type(pinf_type) ,
intent(in) :: ub
3288 type(GK41_type) ,
intent(in) :: qrule
3289 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3295 module function getQuadGK41_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3297 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK1
3300 procedure(
real(RKC)) :: getFunc
3301 real(RKC) ,
intent(in) :: lb
3302 type(pinf_type) ,
intent(in) :: ub
3303 type(GK41_type) ,
intent(in) :: qrule
3304 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3312 module function getQuadGK41_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3314 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK5
3317 procedure(
real(RKC)) :: getFunc
3318 type(ninf_type) ,
intent(in) :: lb
3319 real(RKC) ,
intent(in) :: ub
3320 type(GK41_type) ,
intent(in) :: qrule
3321 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3327 module function getQuadGK41_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3329 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK4
3332 procedure(
real(RKC)) :: getFunc
3333 type(ninf_type) ,
intent(in) :: lb
3334 real(RKC) ,
intent(in) :: ub
3335 type(GK41_type) ,
intent(in) :: qrule
3336 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3342 module function getQuadGK41_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3344 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK3
3347 procedure(
real(RKC)) :: getFunc
3348 type(ninf_type) ,
intent(in) :: lb
3349 real(RKC) ,
intent(in) :: ub
3350 type(GK41_type) ,
intent(in) :: qrule
3351 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3357 module function getQuadGK41_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3359 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK2
3362 procedure(
real(RKC)) :: getFunc
3363 type(ninf_type) ,
intent(in) :: lb
3364 real(RKC) ,
intent(in) :: ub
3365 type(GK41_type) ,
intent(in) :: qrule
3366 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3372 module function getQuadGK41_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3374 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK1
3377 procedure(
real(RKC)) :: getFunc
3378 type(ninf_type) ,
intent(in) :: lb
3379 real(RKC) ,
intent(in) :: ub
3380 type(GK41_type) ,
intent(in) :: qrule
3381 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3389 module function getQuadGK41_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3391 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK5
3394 procedure(
real(RKC)) :: getFunc
3395 type(ninf_type) ,
intent(in) :: lb
3396 type(pinf_type) ,
intent(in) :: ub
3397 type(GK41_type) ,
intent(in) :: qrule
3398 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3404 module function getQuadGK41_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3406 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK4
3409 procedure(
real(RKC)) :: getFunc
3410 type(ninf_type) ,
intent(in) :: lb
3411 type(pinf_type) ,
intent(in) :: ub
3412 type(GK41_type) ,
intent(in) :: qrule
3413 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3419 module function getQuadGK41_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3421 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK3
3424 procedure(
real(RKC)) :: getFunc
3425 type(ninf_type) ,
intent(in) :: lb
3426 type(pinf_type) ,
intent(in) :: ub
3427 type(GK41_type) ,
intent(in) :: qrule
3428 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3434 module function getQuadGK41_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK2
3439 procedure(
real(RKC)) :: getFunc
3440 type(ninf_type) ,
intent(in) :: lb
3441 type(pinf_type) ,
intent(in) :: ub
3442 type(GK41_type) ,
intent(in) :: qrule
3443 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3449 module function getQuadGK41_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK1
3454 procedure(
real(RKC)) :: getFunc
3455 type(ninf_type) ,
intent(in) :: lb
3456 type(pinf_type) ,
intent(in) :: ub
3457 type(GK41_type) ,
intent(in) :: qrule
3458 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3474 module function getQuadGK51_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3476 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK5
3479 procedure(
real(RKC)) :: getFunc
3480 real(RKC) ,
intent(in) :: lb
3481 real(RKC) ,
intent(in) :: ub
3482 type(GK51_type) ,
intent(in) :: qrule
3483 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3489 module function getQuadGK51_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3491 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK4
3494 procedure(
real(RKC)) :: getFunc
3495 real(RKC) ,
intent(in) :: lb
3496 real(RKC) ,
intent(in) :: ub
3497 type(GK51_type) ,
intent(in) :: qrule
3498 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3504 module function getQuadGK51_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3506 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK3
3509 procedure(
real(RKC)) :: getFunc
3510 real(RKC) ,
intent(in) :: lb
3511 real(RKC) ,
intent(in) :: ub
3512 type(GK51_type) ,
intent(in) :: qrule
3513 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3519 module function getQuadGK51_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3521 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK2
3524 procedure(
real(RKC)) :: getFunc
3525 real(RKC) ,
intent(in) :: lb
3526 real(RKC) ,
intent(in) :: ub
3527 type(GK51_type) ,
intent(in) :: qrule
3528 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3534 module function getQuadGK51_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3536 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK1
3539 procedure(
real(RKC)) :: getFunc
3540 real(RKC) ,
intent(in) :: lb
3541 real(RKC) ,
intent(in) :: ub
3542 type(GK51_type) ,
intent(in) :: qrule
3543 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3551 module function getQuadGK51_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3553 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK5
3556 procedure(
real(RKC)) :: getFunc
3557 real(RKC) ,
intent(in) :: lb
3558 type(pinf_type) ,
intent(in) :: ub
3559 type(GK51_type) ,
intent(in) :: qrule
3560 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3566 module function getQuadGK51_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3568 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK4
3571 procedure(
real(RKC)) :: getFunc
3572 real(RKC) ,
intent(in) :: lb
3573 type(pinf_type) ,
intent(in) :: ub
3574 type(GK51_type) ,
intent(in) :: qrule
3575 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3581 module function getQuadGK51_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3583 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK3
3586 procedure(
real(RKC)) :: getFunc
3587 real(RKC) ,
intent(in) :: lb
3588 type(pinf_type) ,
intent(in) :: ub
3589 type(GK51_type) ,
intent(in) :: qrule
3590 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3596 module function getQuadGK51_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3598 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK2
3601 procedure(
real(RKC)) :: getFunc
3602 real(RKC) ,
intent(in) :: lb
3603 type(pinf_type) ,
intent(in) :: ub
3604 type(GK51_type) ,
intent(in) :: qrule
3605 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3611 module function getQuadGK51_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3613 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK1
3616 procedure(
real(RKC)) :: getFunc
3617 real(RKC) ,
intent(in) :: lb
3618 type(pinf_type) ,
intent(in) :: ub
3619 type(GK51_type) ,
intent(in) :: qrule
3620 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3628 module function getQuadGK51_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3630 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK5
3633 procedure(
real(RKC)) :: getFunc
3634 type(ninf_type) ,
intent(in) :: lb
3635 real(RKC) ,
intent(in) :: ub
3636 type(GK51_type) ,
intent(in) :: qrule
3637 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3643 module function getQuadGK51_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3645 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK4
3648 procedure(
real(RKC)) :: getFunc
3649 type(ninf_type) ,
intent(in) :: lb
3650 real(RKC) ,
intent(in) :: ub
3651 type(GK51_type) ,
intent(in) :: qrule
3652 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3658 module function getQuadGK51_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3660 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK3
3663 procedure(
real(RKC)) :: getFunc
3664 type(ninf_type) ,
intent(in) :: lb
3665 real(RKC) ,
intent(in) :: ub
3666 type(GK51_type) ,
intent(in) :: qrule
3667 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3673 module function getQuadGK51_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3675 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK2
3678 procedure(
real(RKC)) :: getFunc
3679 type(ninf_type) ,
intent(in) :: lb
3680 real(RKC) ,
intent(in) :: ub
3681 type(GK51_type) ,
intent(in) :: qrule
3682 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3688 module function getQuadGK51_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3690 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK1
3693 procedure(
real(RKC)) :: getFunc
3694 type(ninf_type) ,
intent(in) :: lb
3695 real(RKC) ,
intent(in) :: ub
3696 type(GK51_type) ,
intent(in) :: qrule
3697 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3705 module function getQuadGK51_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3707 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK5
3710 procedure(
real(RKC)) :: getFunc
3711 type(ninf_type) ,
intent(in) :: lb
3712 type(pinf_type) ,
intent(in) :: ub
3713 type(GK51_type) ,
intent(in) :: qrule
3714 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3720 module function getQuadGK51_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3722 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK4
3725 procedure(
real(RKC)) :: getFunc
3726 type(ninf_type) ,
intent(in) :: lb
3727 type(pinf_type) ,
intent(in) :: ub
3728 type(GK51_type) ,
intent(in) :: qrule
3729 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3735 module function getQuadGK51_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3737 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK3
3740 procedure(
real(RKC)) :: getFunc
3741 type(ninf_type) ,
intent(in) :: lb
3742 type(pinf_type) ,
intent(in) :: ub
3743 type(GK51_type) ,
intent(in) :: qrule
3744 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3750 module function getQuadGK51_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK2
3755 procedure(
real(RKC)) :: getFunc
3756 type(ninf_type) ,
intent(in) :: lb
3757 type(pinf_type) ,
intent(in) :: ub
3758 type(GK51_type) ,
intent(in) :: qrule
3759 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3765 module function getQuadGK51_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3767 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK1
3770 procedure(
real(RKC)) :: getFunc
3771 type(ninf_type) ,
intent(in) :: lb
3772 type(pinf_type) ,
intent(in) :: ub
3773 type(GK51_type) ,
intent(in) :: qrule
3774 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3790 module function getQuadGK61_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3792 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK5
3795 procedure(
real(RKC)) :: getFunc
3796 real(RKC) ,
intent(in) :: lb
3797 real(RKC) ,
intent(in) :: ub
3798 type(GK61_type) ,
intent(in) :: qrule
3799 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3805 module function getQuadGK61_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3807 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK4
3810 procedure(
real(RKC)) :: getFunc
3811 real(RKC) ,
intent(in) :: lb
3812 real(RKC) ,
intent(in) :: ub
3813 type(GK61_type) ,
intent(in) :: qrule
3814 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3820 module function getQuadGK61_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3822 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK3
3825 procedure(
real(RKC)) :: getFunc
3826 real(RKC) ,
intent(in) :: lb
3827 real(RKC) ,
intent(in) :: ub
3828 type(GK61_type) ,
intent(in) :: qrule
3829 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3835 module function getQuadGK61_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3837 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK2
3840 procedure(
real(RKC)) :: getFunc
3841 real(RKC) ,
intent(in) :: lb
3842 real(RKC) ,
intent(in) :: ub
3843 type(GK61_type) ,
intent(in) :: qrule
3844 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3850 module function getQuadGK61_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3852 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK1
3855 procedure(
real(RKC)) :: getFunc
3856 real(RKC) ,
intent(in) :: lb
3857 real(RKC) ,
intent(in) :: ub
3858 type(GK61_type) ,
intent(in) :: qrule
3859 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3867 module function getQuadGK61_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3869 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK5
3872 procedure(
real(RKC)) :: getFunc
3873 real(RKC) ,
intent(in) :: lb
3874 type(pinf_type) ,
intent(in) :: ub
3875 type(GK61_type) ,
intent(in) :: qrule
3876 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3882 module function getQuadGK61_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3884 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK4
3887 procedure(
real(RKC)) :: getFunc
3888 real(RKC) ,
intent(in) :: lb
3889 type(pinf_type) ,
intent(in) :: ub
3890 type(GK61_type) ,
intent(in) :: qrule
3891 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3897 module function getQuadGK61_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3899 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK3
3902 procedure(
real(RKC)) :: getFunc
3903 real(RKC) ,
intent(in) :: lb
3904 type(pinf_type) ,
intent(in) :: ub
3905 type(GK61_type) ,
intent(in) :: qrule
3906 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3912 module function getQuadGK61_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3914 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK2
3917 procedure(
real(RKC)) :: getFunc
3918 real(RKC) ,
intent(in) :: lb
3919 type(pinf_type) ,
intent(in) :: ub
3920 type(GK61_type) ,
intent(in) :: qrule
3921 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3927 module function getQuadGK61_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3929 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK1
3932 procedure(
real(RKC)) :: getFunc
3933 real(RKC) ,
intent(in) :: lb
3934 type(pinf_type) ,
intent(in) :: ub
3935 type(GK61_type) ,
intent(in) :: qrule
3936 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3944 module function getQuadGK61_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3946 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK5
3949 procedure(
real(RKC)) :: getFunc
3950 type(ninf_type) ,
intent(in) :: lb
3951 real(RKC) ,
intent(in) :: ub
3952 type(GK61_type) ,
intent(in) :: qrule
3953 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3959 module function getQuadGK61_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3961 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK4
3964 procedure(
real(RKC)) :: getFunc
3965 type(ninf_type) ,
intent(in) :: lb
3966 real(RKC) ,
intent(in) :: ub
3967 type(GK61_type) ,
intent(in) :: qrule
3968 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3974 module function getQuadGK61_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3976 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK3
3979 procedure(
real(RKC)) :: getFunc
3980 type(ninf_type) ,
intent(in) :: lb
3981 real(RKC) ,
intent(in) :: ub
3982 type(GK61_type) ,
intent(in) :: qrule
3983 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3989 module function getQuadGK61_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3991 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK2
3994 procedure(
real(RKC)) :: getFunc
3995 type(ninf_type) ,
intent(in) :: lb
3996 real(RKC) ,
intent(in) :: ub
3997 type(GK61_type) ,
intent(in) :: qrule
3998 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4004 module function getQuadGK61_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4006 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK1
4009 procedure(
real(RKC)) :: getFunc
4010 type(ninf_type) ,
intent(in) :: lb
4011 real(RKC) ,
intent(in) :: ub
4012 type(GK61_type) ,
intent(in) :: qrule
4013 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4021 module function getQuadGK61_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4023 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK5
4026 procedure(
real(RKC)) :: getFunc
4027 type(ninf_type) ,
intent(in) :: lb
4028 type(pinf_type) ,
intent(in) :: ub
4029 type(GK61_type) ,
intent(in) :: qrule
4030 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4036 module function getQuadGK61_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4038 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK4
4041 procedure(
real(RKC)) :: getFunc
4042 type(ninf_type) ,
intent(in) :: lb
4043 type(pinf_type) ,
intent(in) :: ub
4044 type(GK61_type) ,
intent(in) :: qrule
4045 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4051 module function getQuadGK61_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4053 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK3
4056 procedure(
real(RKC)) :: getFunc
4057 type(ninf_type) ,
intent(in) :: lb
4058 type(pinf_type) ,
intent(in) :: ub
4059 type(GK61_type) ,
intent(in) :: qrule
4060 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4066 module function getQuadGK61_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4068 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK2
4071 procedure(
real(RKC)) :: getFunc
4072 type(ninf_type) ,
intent(in) :: lb
4073 type(pinf_type) ,
intent(in) :: ub
4074 type(GK61_type) ,
intent(in) :: qrule
4075 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4081 module function getQuadGK61_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4083 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK1
4086 procedure(
real(RKC)) :: getFunc
4087 type(ninf_type) ,
intent(in) :: lb
4088 type(pinf_type) ,
intent(in) :: ub
4089 type(GK61_type) ,
intent(in) :: qrule
4090 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4106 module function getQuadGKXX_FF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4108 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK5
4111 procedure(
real(RKC)) :: getFunc
4112 real(RKC) ,
intent(in) :: lb
4113 real(RKC) ,
intent(in) :: ub
4114 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4115 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4121 module function getQuadGKXX_FF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4123 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK4
4126 procedure(
real(RKC)) :: getFunc
4127 real(RKC) ,
intent(in) :: lb
4128 real(RKC) ,
intent(in) :: ub
4129 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4130 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4136 module function getQuadGKXX_FF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4138 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK3
4141 procedure(
real(RKC)) :: getFunc
4142 real(RKC) ,
intent(in) :: lb
4143 real(RKC) ,
intent(in) :: ub
4144 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4145 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4151 module function getQuadGKXX_FF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4153 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK2
4156 procedure(
real(RKC)) :: getFunc
4157 real(RKC) ,
intent(in) :: lb
4158 real(RKC) ,
intent(in) :: ub
4159 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4160 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4166 module function getQuadGKXX_FF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4168 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK1
4171 procedure(
real(RKC)) :: getFunc
4172 real(RKC) ,
intent(in) :: lb
4173 real(RKC) ,
intent(in) :: ub
4174 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4175 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4183 module function getQuadGKXX_FI_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4185 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK5
4188 procedure(
real(RKC)) :: getFunc
4189 real(RKC) ,
intent(in) :: lb
4190 type(pinf_type) ,
intent(in) :: ub
4191 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4192 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4198 module function getQuadGKXX_FI_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4200 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK4
4203 procedure(
real(RKC)) :: getFunc
4204 real(RKC) ,
intent(in) :: lb
4205 type(pinf_type) ,
intent(in) :: ub
4206 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4207 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4213 module function getQuadGKXX_FI_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4215 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK3
4218 procedure(
real(RKC)) :: getFunc
4219 real(RKC) ,
intent(in) :: lb
4220 type(pinf_type) ,
intent(in) :: ub
4221 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4222 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4228 module function getQuadGKXX_FI_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4230 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK2
4233 procedure(
real(RKC)) :: getFunc
4234 real(RKC) ,
intent(in) :: lb
4235 type(pinf_type) ,
intent(in) :: ub
4236 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4237 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4243 module function getQuadGKXX_FI_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4245 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK1
4248 procedure(
real(RKC)) :: getFunc
4249 real(RKC) ,
intent(in) :: lb
4250 type(pinf_type) ,
intent(in) :: ub
4251 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4252 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4260 module function getQuadGKXX_IF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4262 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK5
4265 procedure(
real(RKC)) :: getFunc
4266 type(ninf_type) ,
intent(in) :: lb
4267 real(RKC) ,
intent(in) :: ub
4268 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4269 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4275 module function getQuadGKXX_IF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4277 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK4
4280 procedure(
real(RKC)) :: getFunc
4281 type(ninf_type) ,
intent(in) :: lb
4282 real(RKC) ,
intent(in) :: ub
4283 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4284 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4290 module function getQuadGKXX_IF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4292 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK3
4295 procedure(
real(RKC)) :: getFunc
4296 type(ninf_type) ,
intent(in) :: lb
4297 real(RKC) ,
intent(in) :: ub
4298 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4299 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4305 module function getQuadGKXX_IF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4307 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK2
4310 procedure(
real(RKC)) :: getFunc
4311 type(ninf_type) ,
intent(in) :: lb
4312 real(RKC) ,
intent(in) :: ub
4313 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4314 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4320 module function getQuadGKXX_IF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4322 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK1
4325 procedure(
real(RKC)) :: getFunc
4326 type(ninf_type) ,
intent(in) :: lb
4327 real(RKC) ,
intent(in) :: ub
4328 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4329 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4337 module function getQuadGKXX_II_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4339 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK5
4342 procedure(
real(RKC)) :: getFunc
4343 type(ninf_type) ,
intent(in) :: lb
4344 type(pinf_type) ,
intent(in) :: ub
4345 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4346 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4352 module function getQuadGKXX_II_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4354 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK4
4357 procedure(
real(RKC)) :: getFunc
4358 type(ninf_type) ,
intent(in) :: lb
4359 type(pinf_type) ,
intent(in) :: ub
4360 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4361 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4367 module function getQuadGKXX_II_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4369 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK3
4372 procedure(
real(RKC)) :: getFunc
4373 type(ninf_type) ,
intent(in) :: lb
4374 type(pinf_type) ,
intent(in) :: ub
4375 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4376 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4382 module function getQuadGKXX_II_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4384 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK2
4387 procedure(
real(RKC)) :: getFunc
4388 type(ninf_type) ,
intent(in) :: lb
4389 type(pinf_type) ,
intent(in) :: ub
4390 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4391 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4397 module function getQuadGKXX_II_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4399 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK1
4402 procedure(
real(RKC)) :: getFunc
4403 type(ninf_type) ,
intent(in) :: lb
4404 type(pinf_type) ,
intent(in) :: ub
4405 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4406 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4435 integer(IK) ,
parameter :: MAXLEN_EPSTAB
= 50_IK
4536 pure module subroutine setSeqLimEps_RK5(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4538 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK5
4541 integer(IK) ,
intent(inout) :: inew, ical
4542 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4543 real(RKC) ,
intent(out) :: seqlim, abserr
4548 pure module subroutine setSeqLimEps_RK4(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4550 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK4
4553 integer(IK) ,
intent(inout) :: inew, ical
4554 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4555 real(RKC) ,
intent(out) :: seqlim, abserr
4560 pure module subroutine setSeqLimEps_RK3(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4562 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK3
4565 integer(IK) ,
intent(inout) :: inew, ical
4566 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4567 real(RKC) ,
intent(out) :: seqlim, abserr
4572 pure module subroutine setSeqLimEps_RK2(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4574 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK2
4577 integer(IK) ,
intent(inout) :: inew, ical
4578 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4579 real(RKC) ,
intent(out) :: seqlim, abserr
4584 pure module subroutine setSeqLimEps_RK1(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4586 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK1
4589 integer(IK) ,
intent(inout) :: inew, ical
4590 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4591 real(RKC) ,
intent(out) :: seqlim, abserr
4649 PURE module subroutine setErrSorted_RK5(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4651 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK5
4654 integer(IK) ,
intent(in) :: nintmax
4655 real(RKC) ,
intent(in) :: sinfoErr(:)
4656 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4657 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4658 real(RKC) ,
intent(out) :: maxErrVal
4663 PURE module subroutine setErrSorted_RK4(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4665 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK4
4668 integer(IK) ,
intent(in) :: nintmax
4669 real(RKC) ,
intent(in) :: sinfoErr(:)
4670 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4671 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4672 real(RKC) ,
intent(out) :: maxErrVal
4677 PURE module subroutine setErrSorted_RK3(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4679 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK3
4682 integer(IK) ,
intent(in) :: nintmax
4683 real(RKC) ,
intent(in) :: sinfoErr(:)
4684 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4685 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4686 real(RKC) ,
intent(out) :: maxErrVal
4691 PURE module subroutine setErrSorted_RK2(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4693 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK2
4696 integer(IK) ,
intent(in) :: nintmax
4697 real(RKC) ,
intent(in) :: sinfoErr(:)
4698 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4699 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4700 real(RKC) ,
intent(out) :: maxErrVal
4705 PURE module subroutine setErrSorted_RK1(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4707 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK1
4710 integer(IK) ,
intent(in) :: nintmax
4711 real(RKC) ,
intent(in) :: sinfoErr(:)
4712 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4713 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4714 real(RKC) ,
intent(out) :: maxErrVal
4775 pure module subroutine setChebExpan_RK5(func, cheb12, cheb24)
4776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4777 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK5
4780 real(RKC) ,
intent(inout) :: func(
25)
4781 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4786 pure module subroutine setChebExpan_RK4(func, cheb12, cheb24)
4787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4788 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK4
4791 real(RKC) ,
intent(inout) :: func(
25)
4792 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4797 pure module subroutine setChebExpan_RK3(func, cheb12, cheb24)
4798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4799 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK3
4802 real(RKC) ,
intent(inout) :: func(
25)
4803 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4808 pure module subroutine setChebExpan_RK2(func, cheb12, cheb24)
4809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4810 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK2
4813 real(RKC) ,
intent(inout) :: func(
25)
4814 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4819 pure module subroutine setChebExpan_RK1(func, cheb12, cheb24)
4820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4821 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK1
4824 real(RKC) ,
intent(inout) :: func(
25)
4825 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4926 module function isFailedQuadQAGD_RK5(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
4927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4928 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK5
4931 procedure(
real(RKC)) :: getFunc
4932 real(RKC) ,
intent(in) :: lb, ub
4933 real(RKC) ,
intent(out) :: integral
4934 real(RKC) ,
intent(out) ,
optional :: abserr
4935 real(RKC) ,
intent(in) ,
optional :: abstol
4936 real(RKC) ,
intent(in) ,
optional :: reltol
4937 integer(IK) ,
intent(out) ,
optional :: neval
4938 integer(IK) ,
intent(out) ,
optional :: nint
4939 character(
*, SK) ,
intent(out) ,
optional :: msg
4940 logical(LK) :: failed
4945 module function isFailedQuadQAGD_RK4(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
4946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4947 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK4
4950 procedure(
real(RKC)) :: getFunc
4951 real(RKC) ,
intent(in) :: lb, ub
4952 real(RKC) ,
intent(out) :: integral
4953 real(RKC) ,
intent(out) ,
optional :: abserr
4954 real(RKC) ,
intent(in) ,
optional :: abstol
4955 real(RKC) ,
intent(in) ,
optional :: reltol
4956 integer(IK) ,
intent(out) ,
optional :: neval
4957 integer(IK) ,
intent(out) ,
optional :: nint
4958 character(
*, SK) ,
intent(out) ,
optional :: msg
4959 logical(LK) :: failed
4964 module function isFailedQuadQAGD_RK3(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
4965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4966 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK3
4969 procedure(
real(RKC)) :: getFunc
4970 real(RKC) ,
intent(in) :: lb, ub
4971 real(RKC) ,
intent(out) :: integral
4972 real(RKC) ,
intent(out) ,
optional :: abserr
4973 real(RKC) ,
intent(in) ,
optional :: abstol
4974 real(RKC) ,
intent(in) ,
optional :: reltol
4975 integer(IK) ,
intent(out) ,
optional :: neval
4976 integer(IK) ,
intent(out) ,
optional :: nint
4977 character(
*, SK) ,
intent(out) ,
optional :: msg
4978 logical(LK) :: failed
4983 module function isFailedQuadQAGD_RK2(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
4984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4985 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK2
4988 procedure(
real(RKC)) :: getFunc
4989 real(RKC) ,
intent(in) :: lb, ub
4990 real(RKC) ,
intent(out) :: integral
4991 real(RKC) ,
intent(out) ,
optional :: abserr
4992 real(RKC) ,
intent(in) ,
optional :: abstol
4993 real(RKC) ,
intent(in) ,
optional :: reltol
4994 integer(IK) ,
intent(out) ,
optional :: neval
4995 integer(IK) ,
intent(out) ,
optional :: nint
4996 character(
*, SK) ,
intent(out) ,
optional :: msg
4997 logical(LK) :: failed
5002 module function isFailedQuadQAGD_RK1(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5004 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK1
5007 procedure(
real(RKC)) :: getFunc
5008 real(RKC) ,
intent(in) :: lb, ub
5009 real(RKC) ,
intent(out) :: integral
5010 real(RKC) ,
intent(out) ,
optional :: abserr
5011 real(RKC) ,
intent(in) ,
optional :: abstol
5012 real(RKC) ,
intent(in) ,
optional :: reltol
5013 integer(IK) ,
intent(out) ,
optional :: neval
5014 integer(IK) ,
intent(out) ,
optional :: nint
5015 character(
*, SK) ,
intent(out) ,
optional :: msg
5016 logical(LK) :: failed
5023 module function isFailedQuadQAGS_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5025 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK5
5028 procedure(
real(RKC)) :: getFunc
5029 real(RKC) ,
intent(in) :: lb, ub
5030 real(RKC) ,
intent(out) :: integral
5031 type(weps_type) ,
intent(in) :: help
5032 real(RKC) ,
intent(out) ,
optional :: abserr
5033 real(RKC) ,
intent(in) ,
optional :: abstol
5034 real(RKC) ,
intent(in) ,
optional :: reltol
5035 integer(IK) ,
intent(out) ,
optional :: neval
5036 integer(IK) ,
intent(out) ,
optional :: nint
5037 character(
*, SK) ,
intent(out) ,
optional :: msg
5038 logical(LK) :: failed
5043 module function isFailedQuadQAGS_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5045 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK4
5048 procedure(
real(RKC)) :: getFunc
5049 real(RKC) ,
intent(in) :: lb, ub
5050 real(RKC) ,
intent(out) :: integral
5051 type(weps_type) ,
intent(in) :: help
5052 real(RKC) ,
intent(out) ,
optional :: abserr
5053 real(RKC) ,
intent(in) ,
optional :: abstol
5054 real(RKC) ,
intent(in) ,
optional :: reltol
5055 integer(IK) ,
intent(out) ,
optional :: neval
5056 integer(IK) ,
intent(out) ,
optional :: nint
5057 character(
*, SK) ,
intent(out) ,
optional :: msg
5058 logical(LK) :: failed
5063 module function isFailedQuadQAGS_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5065 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK3
5068 procedure(
real(RKC)) :: getFunc
5069 real(RKC) ,
intent(in) :: lb, ub
5070 real(RKC) ,
intent(out) :: integral
5071 type(weps_type) ,
intent(in) :: help
5072 real(RKC) ,
intent(out) ,
optional :: abserr
5073 real(RKC) ,
intent(in) ,
optional :: abstol
5074 real(RKC) ,
intent(in) ,
optional :: reltol
5075 integer(IK) ,
intent(out) ,
optional :: neval
5076 integer(IK) ,
intent(out) ,
optional :: nint
5077 character(
*, SK) ,
intent(out) ,
optional :: msg
5078 logical(LK) :: failed
5083 module function isFailedQuadQAGS_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5085 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK2
5088 procedure(
real(RKC)) :: getFunc
5089 real(RKC) ,
intent(in) :: lb, ub
5090 real(RKC) ,
intent(out) :: integral
5091 type(weps_type) ,
intent(in) :: help
5092 real(RKC) ,
intent(out) ,
optional :: abserr
5093 real(RKC) ,
intent(in) ,
optional :: abstol
5094 real(RKC) ,
intent(in) ,
optional :: reltol
5095 integer(IK) ,
intent(out) ,
optional :: neval
5096 integer(IK) ,
intent(out) ,
optional :: nint
5097 character(
*, SK) ,
intent(out) ,
optional :: msg
5098 logical(LK) :: failed
5103 module function isFailedQuadQAGS_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5105 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK1
5108 procedure(
real(RKC)) :: getFunc
5109 real(RKC) ,
intent(in) :: lb, ub
5110 real(RKC) ,
intent(out) :: integral
5111 type(weps_type) ,
intent(in) :: help
5112 real(RKC) ,
intent(out) ,
optional :: abserr
5113 real(RKC) ,
intent(in) ,
optional :: abstol
5114 real(RKC) ,
intent(in) ,
optional :: reltol
5115 integer(IK) ,
intent(out) ,
optional :: neval
5116 integer(IK) ,
intent(out) ,
optional :: nint
5117 character(
*, SK) ,
intent(out) ,
optional :: msg
5118 logical(LK) :: failed
5125 module function isFailedQuadQAGP_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5127 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK5
5130 procedure(
real(RKC)) :: getFunc
5131 real(RKC) ,
intent(in) :: lb, ub
5132 real(RKC) ,
intent(out) :: integral
5133 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5134 real(RKC) ,
intent(out) ,
optional :: abserr
5135 real(RKC) ,
intent(in) ,
optional :: abstol
5136 real(RKC) ,
intent(in) ,
optional :: reltol
5137 integer(IK) ,
intent(out) ,
optional :: neval
5138 integer(IK) ,
intent(out) ,
optional :: nint
5139 character(
*, SK) ,
intent(out) ,
optional :: msg
5140 logical(LK) :: failed
5145 module function isFailedQuadQAGP_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5147 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK4
5150 procedure(
real(RKC)) :: getFunc
5151 real(RKC) ,
intent(in) :: lb, ub
5152 real(RKC) ,
intent(out) :: integral
5153 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5154 real(RKC) ,
intent(out) ,
optional :: abserr
5155 real(RKC) ,
intent(in) ,
optional :: abstol
5156 real(RKC) ,
intent(in) ,
optional :: reltol
5157 integer(IK) ,
intent(out) ,
optional :: neval
5158 integer(IK) ,
intent(out) ,
optional :: nint
5159 character(
*, SK) ,
intent(out) ,
optional :: msg
5160 logical(LK) :: failed
5165 module function isFailedQuadQAGP_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5167 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK3
5170 procedure(
real(RKC)) :: getFunc
5171 real(RKC) ,
intent(in) :: lb, ub
5172 real(RKC) ,
intent(out) :: integral
5173 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5174 real(RKC) ,
intent(out) ,
optional :: abserr
5175 real(RKC) ,
intent(in) ,
optional :: abstol
5176 real(RKC) ,
intent(in) ,
optional :: reltol
5177 integer(IK) ,
intent(out) ,
optional :: neval
5178 integer(IK) ,
intent(out) ,
optional :: nint
5179 character(
*, SK) ,
intent(out) ,
optional :: msg
5180 logical(LK) :: failed
5185 module function isFailedQuadQAGP_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5187 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK2
5190 procedure(
real(RKC)) :: getFunc
5191 real(RKC) ,
intent(in) :: lb, ub
5192 real(RKC) ,
intent(out) :: integral
5193 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5194 real(RKC) ,
intent(out) ,
optional :: abserr
5195 real(RKC) ,
intent(in) ,
optional :: abstol
5196 real(RKC) ,
intent(in) ,
optional :: reltol
5197 integer(IK) ,
intent(out) ,
optional :: neval
5198 integer(IK) ,
intent(out) ,
optional :: nint
5199 character(
*, SK) ,
intent(out) ,
optional :: msg
5200 logical(LK) :: failed
5205 module function isFailedQuadQAGP_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5207 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK1
5210 procedure(
real(RKC)) :: getFunc
5211 real(RKC) ,
intent(in) :: lb, ub
5212 real(RKC) ,
intent(out) :: integral
5213 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5214 real(RKC) ,
intent(out) ,
optional :: abserr
5215 real(RKC) ,
intent(in) ,
optional :: abstol
5216 real(RKC) ,
intent(in) ,
optional :: reltol
5217 integer(IK) ,
intent(out) ,
optional :: neval
5218 integer(IK) ,
intent(out) ,
optional :: nint
5219 character(
*, SK) ,
intent(out) ,
optional :: msg
5220 logical(LK) :: failed
5227 module function isFailedQuadQAWC_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5229 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK5
5232 procedure(
real(RKC)) :: getFunc
5233 real(RKC) ,
intent(in) :: lb, ub
5234 real(RKC) ,
intent(out) :: integral
5235 type(wcauchy_type) ,
intent(in) :: help
5236 real(RKC) ,
intent(out) ,
optional :: abserr
5237 real(RKC) ,
intent(in) ,
optional :: abstol
5238 real(RKC) ,
intent(in) ,
optional :: reltol
5239 integer(IK) ,
intent(out) ,
optional :: neval
5240 integer(IK) ,
intent(out) ,
optional :: nint
5241 character(
*, SK) ,
intent(out) ,
optional :: msg
5242 logical(LK) :: failed
5247 module function isFailedQuadQAWC_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5249 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK4
5252 procedure(
real(RKC)) :: getFunc
5253 real(RKC) ,
intent(in) :: lb, ub
5254 real(RKC) ,
intent(out) :: integral
5255 type(wcauchy_type) ,
intent(in) :: help
5256 real(RKC) ,
intent(out) ,
optional :: abserr
5257 real(RKC) ,
intent(in) ,
optional :: abstol
5258 real(RKC) ,
intent(in) ,
optional :: reltol
5259 integer(IK) ,
intent(out) ,
optional :: neval
5260 integer(IK) ,
intent(out) ,
optional :: nint
5261 character(
*, SK) ,
intent(out) ,
optional :: msg
5262 logical(LK) :: failed
5267 module function isFailedQuadQAWC_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5269 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK3
5272 procedure(
real(RKC)) :: getFunc
5273 real(RKC) ,
intent(in) :: lb, ub
5274 real(RKC) ,
intent(out) :: integral
5275 type(wcauchy_type) ,
intent(in) :: help
5276 real(RKC) ,
intent(out) ,
optional :: abserr
5277 real(RKC) ,
intent(in) ,
optional :: abstol
5278 real(RKC) ,
intent(in) ,
optional :: reltol
5279 integer(IK) ,
intent(out) ,
optional :: neval
5280 integer(IK) ,
intent(out) ,
optional :: nint
5281 character(
*, SK) ,
intent(out) ,
optional :: msg
5282 logical(LK) :: failed
5287 module function isFailedQuadQAWC_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5289 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK2
5292 procedure(
real(RKC)) :: getFunc
5293 real(RKC) ,
intent(in) :: lb, ub
5294 real(RKC) ,
intent(out) :: integral
5295 type(wcauchy_type) ,
intent(in) :: help
5296 real(RKC) ,
intent(out) ,
optional :: abserr
5297 real(RKC) ,
intent(in) ,
optional :: abstol
5298 real(RKC) ,
intent(in) ,
optional :: reltol
5299 integer(IK) ,
intent(out) ,
optional :: neval
5300 integer(IK) ,
intent(out) ,
optional :: nint
5301 character(
*, SK) ,
intent(out) ,
optional :: msg
5302 logical(LK) :: failed
5307 module function isFailedQuadQAWC_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5309 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK1
5312 procedure(
real(RKC)) :: getFunc
5313 real(RKC) ,
intent(in) :: lb, ub
5314 real(RKC) ,
intent(out) :: integral
5315 type(wcauchy_type) ,
intent(in) :: help
5316 real(RKC) ,
intent(out) ,
optional :: abserr
5317 real(RKC) ,
intent(in) ,
optional :: abstol
5318 real(RKC) ,
intent(in) ,
optional :: reltol
5319 integer(IK) ,
intent(out) ,
optional :: neval
5320 integer(IK) ,
intent(out) ,
optional :: nint
5321 character(
*, SK) ,
intent(out) ,
optional :: msg
5322 logical(LK) :: failed
5578 module function QAGD_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK5
5583 procedure(
real(RKC)) :: getFunc
5584 real(RKC) ,
intent(in) :: lb
5585 real(RKC) ,
intent(in) :: ub
5586 real(RKC) ,
intent(in) :: abstol
5587 real(RKC) ,
intent(in) :: reltol
5588 type(GK15_type) ,
intent(in) :: qrule
5589 real(RKC) ,
intent(out) :: integral, abserr
5590 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5591 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5592 integer(IK) ,
intent(out) :: neval
5593 integer(IK) ,
intent(out) :: nint
5599 module function QAGD_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK4
5604 procedure(
real(RKC)) :: getFunc
5605 real(RKC) ,
intent(in) :: lb
5606 real(RKC) ,
intent(in) :: ub
5607 real(RKC) ,
intent(in) :: abstol
5608 real(RKC) ,
intent(in) :: reltol
5609 type(GK15_type) ,
intent(in) :: qrule
5610 real(RKC) ,
intent(out) :: integral, abserr
5611 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5612 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5613 integer(IK) ,
intent(out) :: neval
5614 integer(IK) ,
intent(out) :: nint
5620 module function QAGD_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK3
5625 procedure(
real(RKC)) :: getFunc
5626 real(RKC) ,
intent(in) :: lb
5627 real(RKC) ,
intent(in) :: ub
5628 real(RKC) ,
intent(in) :: abstol
5629 real(RKC) ,
intent(in) :: reltol
5630 type(GK15_type) ,
intent(in) :: qrule
5631 real(RKC) ,
intent(out) :: integral, abserr
5632 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5633 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5634 integer(IK) ,
intent(out) :: neval
5635 integer(IK) ,
intent(out) :: nint
5641 module function QAGD_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5643 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK2
5646 procedure(
real(RKC)) :: getFunc
5647 real(RKC) ,
intent(in) :: lb
5648 real(RKC) ,
intent(in) :: ub
5649 real(RKC) ,
intent(in) :: abstol
5650 real(RKC) ,
intent(in) :: reltol
5651 type(GK15_type) ,
intent(in) :: qrule
5652 real(RKC) ,
intent(out) :: integral, abserr
5653 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5654 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5655 integer(IK) ,
intent(out) :: neval
5656 integer(IK) ,
intent(out) :: nint
5662 module function QAGD_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK1
5667 procedure(
real(RKC)) :: getFunc
5668 real(RKC) ,
intent(in) :: lb
5669 real(RKC) ,
intent(in) :: ub
5670 real(RKC) ,
intent(in) :: abstol
5671 real(RKC) ,
intent(in) :: reltol
5672 type(GK15_type) ,
intent(in) :: qrule
5673 real(RKC) ,
intent(out) :: integral, abserr
5674 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5675 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5676 integer(IK) ,
intent(out) :: neval
5677 integer(IK) ,
intent(out) :: nint
5685 module function QAGD_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5687 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK5
5690 procedure(
real(RKC)) :: getFunc
5691 real(RKC) ,
intent(in) :: lb
5692 type(pinf_type) ,
intent(in) :: ub
5693 real(RKC) ,
intent(in) :: abstol
5694 real(RKC) ,
intent(in) :: reltol
5695 type(GK15_type) ,
intent(in) :: qrule
5696 real(RKC) ,
intent(out) :: integral, abserr
5697 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5698 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5699 integer(IK) ,
intent(out) :: neval
5700 integer(IK) ,
intent(out) :: nint
5706 module function QAGD_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK4
5711 procedure(
real(RKC)) :: getFunc
5712 real(RKC) ,
intent(in) :: lb
5713 type(pinf_type) ,
intent(in) :: ub
5714 real(RKC) ,
intent(in) :: abstol
5715 real(RKC) ,
intent(in) :: reltol
5716 type(GK15_type) ,
intent(in) :: qrule
5717 real(RKC) ,
intent(out) :: integral, abserr
5718 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5719 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5720 integer(IK) ,
intent(out) :: neval
5721 integer(IK) ,
intent(out) :: nint
5727 module function QAGD_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5729 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK3
5732 procedure(
real(RKC)) :: getFunc
5733 real(RKC) ,
intent(in) :: lb
5734 type(pinf_type) ,
intent(in) :: ub
5735 real(RKC) ,
intent(in) :: abstol
5736 real(RKC) ,
intent(in) :: reltol
5737 type(GK15_type) ,
intent(in) :: qrule
5738 real(RKC) ,
intent(out) :: integral, abserr
5739 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5740 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5741 integer(IK) ,
intent(out) :: neval
5742 integer(IK) ,
intent(out) :: nint
5748 module function QAGD_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK2
5753 procedure(
real(RKC)) :: getFunc
5754 real(RKC) ,
intent(in) :: lb
5755 type(pinf_type) ,
intent(in) :: ub
5756 real(RKC) ,
intent(in) :: abstol
5757 real(RKC) ,
intent(in) :: reltol
5758 type(GK15_type) ,
intent(in) :: qrule
5759 real(RKC) ,
intent(out) :: integral, abserr
5760 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5761 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5762 integer(IK) ,
intent(out) :: neval
5763 integer(IK) ,
intent(out) :: nint
5769 module function QAGD_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5771 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK1
5774 procedure(
real(RKC)) :: getFunc
5775 real(RKC) ,
intent(in) :: lb
5776 type(pinf_type) ,
intent(in) :: ub
5777 real(RKC) ,
intent(in) :: abstol
5778 real(RKC) ,
intent(in) :: reltol
5779 type(GK15_type) ,
intent(in) :: qrule
5780 real(RKC) ,
intent(out) :: integral, abserr
5781 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5782 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5783 integer(IK) ,
intent(out) :: neval
5784 integer(IK) ,
intent(out) :: nint
5792 module function QAGD_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK5
5797 procedure(
real(RKC)) :: getFunc
5798 type(ninf_type) ,
intent(in) :: lb
5799 real(RKC) ,
intent(in) :: ub
5800 real(RKC) ,
intent(in) :: abstol
5801 real(RKC) ,
intent(in) :: reltol
5802 type(GK15_type) ,
intent(in) :: qrule
5803 real(RKC) ,
intent(out) :: integral, abserr
5804 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5805 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5806 integer(IK) ,
intent(out) :: neval
5807 integer(IK) ,
intent(out) :: nint
5813 module function QAGD_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5815 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK4
5818 procedure(
real(RKC)) :: getFunc
5819 type(ninf_type) ,
intent(in) :: lb
5820 real(RKC) ,
intent(in) :: ub
5821 real(RKC) ,
intent(in) :: abstol
5822 real(RKC) ,
intent(in) :: reltol
5823 type(GK15_type) ,
intent(in) :: qrule
5824 real(RKC) ,
intent(out) :: integral, abserr
5825 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5826 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5827 integer(IK) ,
intent(out) :: neval
5828 integer(IK) ,
intent(out) :: nint
5834 module function QAGD_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK3
5839 procedure(
real(RKC)) :: getFunc
5840 type(ninf_type) ,
intent(in) :: lb
5841 real(RKC) ,
intent(in) :: ub
5842 real(RKC) ,
intent(in) :: abstol
5843 real(RKC) ,
intent(in) :: reltol
5844 type(GK15_type) ,
intent(in) :: qrule
5845 real(RKC) ,
intent(out) :: integral, abserr
5846 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5847 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5848 integer(IK) ,
intent(out) :: neval
5849 integer(IK) ,
intent(out) :: nint
5855 module function QAGD_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5857 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK2
5860 procedure(
real(RKC)) :: getFunc
5861 type(ninf_type) ,
intent(in) :: lb
5862 real(RKC) ,
intent(in) :: ub
5863 real(RKC) ,
intent(in) :: abstol
5864 real(RKC) ,
intent(in) :: reltol
5865 type(GK15_type) ,
intent(in) :: qrule
5866 real(RKC) ,
intent(out) :: integral, abserr
5867 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5868 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5869 integer(IK) ,
intent(out) :: neval
5870 integer(IK) ,
intent(out) :: nint
5876 module function QAGD_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5878 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK1
5881 procedure(
real(RKC)) :: getFunc
5882 type(ninf_type) ,
intent(in) :: lb
5883 real(RKC) ,
intent(in) :: ub
5884 real(RKC) ,
intent(in) :: abstol
5885 real(RKC) ,
intent(in) :: reltol
5886 type(GK15_type) ,
intent(in) :: qrule
5887 real(RKC) ,
intent(out) :: integral, abserr
5888 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5889 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5890 integer(IK) ,
intent(out) :: neval
5891 integer(IK) ,
intent(out) :: nint
5899 module function QAGD_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5901 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK5
5904 procedure(
real(RKC)) :: getFunc
5905 type(ninf_type) ,
intent(in) :: lb
5906 type(pinf_type) ,
intent(in) :: ub
5907 real(RKC) ,
intent(in) :: abstol
5908 real(RKC) ,
intent(in) :: reltol
5909 type(GK15_type) ,
intent(in) :: qrule
5910 real(RKC) ,
intent(out) :: integral, abserr
5911 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5912 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5913 integer(IK) ,
intent(out) :: neval
5914 integer(IK) ,
intent(out) :: nint
5920 module function QAGD_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK4
5925 procedure(
real(RKC)) :: getFunc
5926 type(ninf_type) ,
intent(in) :: lb
5927 type(pinf_type) ,
intent(in) :: ub
5928 real(RKC) ,
intent(in) :: abstol
5929 real(RKC) ,
intent(in) :: reltol
5930 type(GK15_type) ,
intent(in) :: qrule
5931 real(RKC) ,
intent(out) :: integral, abserr
5932 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5933 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5934 integer(IK) ,
intent(out) :: neval
5935 integer(IK) ,
intent(out) :: nint
5941 module function QAGD_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5943 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK3
5946 procedure(
real(RKC)) :: getFunc
5947 type(ninf_type) ,
intent(in) :: lb
5948 type(pinf_type) ,
intent(in) :: ub
5949 real(RKC) ,
intent(in) :: abstol
5950 real(RKC) ,
intent(in) :: reltol
5951 type(GK15_type) ,
intent(in) :: qrule
5952 real(RKC) ,
intent(out) :: integral, abserr
5953 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5954 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5955 integer(IK) ,
intent(out) :: neval
5956 integer(IK) ,
intent(out) :: nint
5962 module function QAGD_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK2
5967 procedure(
real(RKC)) :: getFunc
5968 type(ninf_type) ,
intent(in) :: lb
5969 type(pinf_type) ,
intent(in) :: ub
5970 real(RKC) ,
intent(in) :: abstol
5971 real(RKC) ,
intent(in) :: reltol
5972 type(GK15_type) ,
intent(in) :: qrule
5973 real(RKC) ,
intent(out) :: integral, abserr
5974 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5975 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5976 integer(IK) ,
intent(out) :: neval
5977 integer(IK) ,
intent(out) :: nint
5983 module function QAGD_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5985 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK1
5988 procedure(
real(RKC)) :: getFunc
5989 type(ninf_type) ,
intent(in) :: lb
5990 type(pinf_type) ,
intent(in) :: ub
5991 real(RKC) ,
intent(in) :: abstol
5992 real(RKC) ,
intent(in) :: reltol
5993 type(GK15_type) ,
intent(in) :: qrule
5994 real(RKC) ,
intent(out) :: integral, abserr
5995 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5996 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5997 integer(IK) ,
intent(out) :: neval
5998 integer(IK) ,
intent(out) :: nint
6014 module function QAGD_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK5
6019 procedure(
real(RKC)) :: getFunc
6020 real(RKC) ,
intent(in) :: lb
6021 real(RKC) ,
intent(in) :: ub
6022 real(RKC) ,
intent(in) :: abstol
6023 real(RKC) ,
intent(in) :: reltol
6024 type(GK21_type) ,
intent(in) :: qrule
6025 real(RKC) ,
intent(out) :: integral, abserr
6026 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6027 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6028 integer(IK) ,
intent(out) :: neval
6029 integer(IK) ,
intent(out) :: nint
6035 module function QAGD_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6037 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK4
6040 procedure(
real(RKC)) :: getFunc
6041 real(RKC) ,
intent(in) :: lb
6042 real(RKC) ,
intent(in) :: ub
6043 real(RKC) ,
intent(in) :: abstol
6044 real(RKC) ,
intent(in) :: reltol
6045 type(GK21_type) ,
intent(in) :: qrule
6046 real(RKC) ,
intent(out) :: integral, abserr
6047 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6048 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6049 integer(IK) ,
intent(out) :: neval
6050 integer(IK) ,
intent(out) :: nint
6056 module function QAGD_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK3
6061 procedure(
real(RKC)) :: getFunc
6062 real(RKC) ,
intent(in) :: lb
6063 real(RKC) ,
intent(in) :: ub
6064 real(RKC) ,
intent(in) :: abstol
6065 real(RKC) ,
intent(in) :: reltol
6066 type(GK21_type) ,
intent(in) :: qrule
6067 real(RKC) ,
intent(out) :: integral, abserr
6068 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6069 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6070 integer(IK) ,
intent(out) :: neval
6071 integer(IK) ,
intent(out) :: nint
6077 module function QAGD_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6079 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK2
6082 procedure(
real(RKC)) :: getFunc
6083 real(RKC) ,
intent(in) :: lb
6084 real(RKC) ,
intent(in) :: ub
6085 real(RKC) ,
intent(in) :: abstol
6086 real(RKC) ,
intent(in) :: reltol
6087 type(GK21_type) ,
intent(in) :: qrule
6088 real(RKC) ,
intent(out) :: integral, abserr
6089 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6090 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6091 integer(IK) ,
intent(out) :: neval
6092 integer(IK) ,
intent(out) :: nint
6098 module function QAGD_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK1
6103 procedure(
real(RKC)) :: getFunc
6104 real(RKC) ,
intent(in) :: lb
6105 real(RKC) ,
intent(in) :: ub
6106 real(RKC) ,
intent(in) :: abstol
6107 real(RKC) ,
intent(in) :: reltol
6108 type(GK21_type) ,
intent(in) :: qrule
6109 real(RKC) ,
intent(out) :: integral, abserr
6110 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6111 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6112 integer(IK) ,
intent(out) :: neval
6113 integer(IK) ,
intent(out) :: nint
6121 module function QAGD_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6123 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK5
6126 procedure(
real(RKC)) :: getFunc
6127 real(RKC) ,
intent(in) :: lb
6128 type(pinf_type) ,
intent(in) :: ub
6129 real(RKC) ,
intent(in) :: abstol
6130 real(RKC) ,
intent(in) :: reltol
6131 type(GK21_type) ,
intent(in) :: qrule
6132 real(RKC) ,
intent(out) :: integral, abserr
6133 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6134 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6135 integer(IK) ,
intent(out) :: neval
6136 integer(IK) ,
intent(out) :: nint
6142 module function QAGD_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK4
6147 procedure(
real(RKC)) :: getFunc
6148 real(RKC) ,
intent(in) :: lb
6149 type(pinf_type) ,
intent(in) :: ub
6150 real(RKC) ,
intent(in) :: abstol
6151 real(RKC) ,
intent(in) :: reltol
6152 type(GK21_type) ,
intent(in) :: qrule
6153 real(RKC) ,
intent(out) :: integral, abserr
6154 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6155 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6156 integer(IK) ,
intent(out) :: neval
6157 integer(IK) ,
intent(out) :: nint
6163 module function QAGD_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6165 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK3
6168 procedure(
real(RKC)) :: getFunc
6169 real(RKC) ,
intent(in) :: lb
6170 type(pinf_type) ,
intent(in) :: ub
6171 real(RKC) ,
intent(in) :: abstol
6172 real(RKC) ,
intent(in) :: reltol
6173 type(GK21_type) ,
intent(in) :: qrule
6174 real(RKC) ,
intent(out) :: integral, abserr
6175 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6176 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6177 integer(IK) ,
intent(out) :: neval
6178 integer(IK) ,
intent(out) :: nint
6184 module function QAGD_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK2
6189 procedure(
real(RKC)) :: getFunc
6190 real(RKC) ,
intent(in) :: lb
6191 type(pinf_type) ,
intent(in) :: ub
6192 real(RKC) ,
intent(in) :: abstol
6193 real(RKC) ,
intent(in) :: reltol
6194 type(GK21_type) ,
intent(in) :: qrule
6195 real(RKC) ,
intent(out) :: integral, abserr
6196 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6197 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6198 integer(IK) ,
intent(out) :: neval
6199 integer(IK) ,
intent(out) :: nint
6205 module function QAGD_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6207 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK1
6210 procedure(
real(RKC)) :: getFunc
6211 real(RKC) ,
intent(in) :: lb
6212 type(pinf_type) ,
intent(in) :: ub
6213 real(RKC) ,
intent(in) :: abstol
6214 real(RKC) ,
intent(in) :: reltol
6215 type(GK21_type) ,
intent(in) :: qrule
6216 real(RKC) ,
intent(out) :: integral, abserr
6217 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6218 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6219 integer(IK) ,
intent(out) :: neval
6220 integer(IK) ,
intent(out) :: nint
6228 module function QAGD_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK5
6233 procedure(
real(RKC)) :: getFunc
6234 type(ninf_type) ,
intent(in) :: lb
6235 real(RKC) ,
intent(in) :: ub
6236 real(RKC) ,
intent(in) :: abstol
6237 real(RKC) ,
intent(in) :: reltol
6238 type(GK21_type) ,
intent(in) :: qrule
6239 real(RKC) ,
intent(out) :: integral, abserr
6240 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6241 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6242 integer(IK) ,
intent(out) :: neval
6243 integer(IK) ,
intent(out) :: nint
6249 module function QAGD_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6251 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK4
6254 procedure(
real(RKC)) :: getFunc
6255 type(ninf_type) ,
intent(in) :: lb
6256 real(RKC) ,
intent(in) :: ub
6257 real(RKC) ,
intent(in) :: abstol
6258 real(RKC) ,
intent(in) :: reltol
6259 type(GK21_type) ,
intent(in) :: qrule
6260 real(RKC) ,
intent(out) :: integral, abserr
6261 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6262 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6263 integer(IK) ,
intent(out) :: neval
6264 integer(IK) ,
intent(out) :: nint
6270 module function QAGD_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK3
6275 procedure(
real(RKC)) :: getFunc
6276 type(ninf_type) ,
intent(in) :: lb
6277 real(RKC) ,
intent(in) :: ub
6278 real(RKC) ,
intent(in) :: abstol
6279 real(RKC) ,
intent(in) :: reltol
6280 type(GK21_type) ,
intent(in) :: qrule
6281 real(RKC) ,
intent(out) :: integral, abserr
6282 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6283 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6284 integer(IK) ,
intent(out) :: neval
6285 integer(IK) ,
intent(out) :: nint
6291 module function QAGD_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6293 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK2
6296 procedure(
real(RKC)) :: getFunc
6297 type(ninf_type) ,
intent(in) :: lb
6298 real(RKC) ,
intent(in) :: ub
6299 real(RKC) ,
intent(in) :: abstol
6300 real(RKC) ,
intent(in) :: reltol
6301 type(GK21_type) ,
intent(in) :: qrule
6302 real(RKC) ,
intent(out) :: integral, abserr
6303 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6304 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6305 integer(IK) ,
intent(out) :: neval
6306 integer(IK) ,
intent(out) :: nint
6312 module function QAGD_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK1
6317 procedure(
real(RKC)) :: getFunc
6318 type(ninf_type) ,
intent(in) :: lb
6319 real(RKC) ,
intent(in) :: ub
6320 real(RKC) ,
intent(in) :: abstol
6321 real(RKC) ,
intent(in) :: reltol
6322 type(GK21_type) ,
intent(in) :: qrule
6323 real(RKC) ,
intent(out) :: integral, abserr
6324 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6325 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6326 integer(IK) ,
intent(out) :: neval
6327 integer(IK) ,
intent(out) :: nint
6335 module function QAGD_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6337 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK5
6340 procedure(
real(RKC)) :: getFunc
6341 type(ninf_type) ,
intent(in) :: lb
6342 type(pinf_type) ,
intent(in) :: ub
6343 real(RKC) ,
intent(in) :: abstol
6344 real(RKC) ,
intent(in) :: reltol
6345 type(GK21_type) ,
intent(in) :: qrule
6346 real(RKC) ,
intent(out) :: integral, abserr
6347 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6348 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6349 integer(IK) ,
intent(out) :: neval
6350 integer(IK) ,
intent(out) :: nint
6356 module function QAGD_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK4
6361 procedure(
real(RKC)) :: getFunc
6362 type(ninf_type) ,
intent(in) :: lb
6363 type(pinf_type) ,
intent(in) :: ub
6364 real(RKC) ,
intent(in) :: abstol
6365 real(RKC) ,
intent(in) :: reltol
6366 type(GK21_type) ,
intent(in) :: qrule
6367 real(RKC) ,
intent(out) :: integral, abserr
6368 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6369 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6370 integer(IK) ,
intent(out) :: neval
6371 integer(IK) ,
intent(out) :: nint
6377 module function QAGD_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6379 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK3
6382 procedure(
real(RKC)) :: getFunc
6383 type(ninf_type) ,
intent(in) :: lb
6384 type(pinf_type) ,
intent(in) :: ub
6385 real(RKC) ,
intent(in) :: abstol
6386 real(RKC) ,
intent(in) :: reltol
6387 type(GK21_type) ,
intent(in) :: qrule
6388 real(RKC) ,
intent(out) :: integral, abserr
6389 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6390 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6391 integer(IK) ,
intent(out) :: neval
6392 integer(IK) ,
intent(out) :: nint
6398 module function QAGD_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6400 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK2
6403 procedure(
real(RKC)) :: getFunc
6404 type(ninf_type) ,
intent(in) :: lb
6405 type(pinf_type) ,
intent(in) :: ub
6406 real(RKC) ,
intent(in) :: abstol
6407 real(RKC) ,
intent(in) :: reltol
6408 type(GK21_type) ,
intent(in) :: qrule
6409 real(RKC) ,
intent(out) :: integral, abserr
6410 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6411 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6412 integer(IK) ,
intent(out) :: neval
6413 integer(IK) ,
intent(out) :: nint
6419 module function QAGD_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6421 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK1
6424 procedure(
real(RKC)) :: getFunc
6425 type(ninf_type) ,
intent(in) :: lb
6426 type(pinf_type) ,
intent(in) :: ub
6427 real(RKC) ,
intent(in) :: abstol
6428 real(RKC) ,
intent(in) :: reltol
6429 type(GK21_type) ,
intent(in) :: qrule
6430 real(RKC) ,
intent(out) :: integral, abserr
6431 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6432 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6433 integer(IK) ,
intent(out) :: neval
6434 integer(IK) ,
intent(out) :: nint
6450 module function QAGD_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK5
6455 procedure(
real(RKC)) :: getFunc
6456 real(RKC) ,
intent(in) :: lb
6457 real(RKC) ,
intent(in) :: ub
6458 real(RKC) ,
intent(in) :: abstol
6459 real(RKC) ,
intent(in) :: reltol
6460 type(GK31_type) ,
intent(in) :: qrule
6461 real(RKC) ,
intent(out) :: integral, abserr
6462 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6463 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6464 integer(IK) ,
intent(out) :: neval
6465 integer(IK) ,
intent(out) :: nint
6471 module function QAGD_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6473 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK4
6476 procedure(
real(RKC)) :: getFunc
6477 real(RKC) ,
intent(in) :: lb
6478 real(RKC) ,
intent(in) :: ub
6479 real(RKC) ,
intent(in) :: abstol
6480 real(RKC) ,
intent(in) :: reltol
6481 type(GK31_type) ,
intent(in) :: qrule
6482 real(RKC) ,
intent(out) :: integral, abserr
6483 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6484 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6485 integer(IK) ,
intent(out) :: neval
6486 integer(IK) ,
intent(out) :: nint
6492 module function QAGD_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK3
6497 procedure(
real(RKC)) :: getFunc
6498 real(RKC) ,
intent(in) :: lb
6499 real(RKC) ,
intent(in) :: ub
6500 real(RKC) ,
intent(in) :: abstol
6501 real(RKC) ,
intent(in) :: reltol
6502 type(GK31_type) ,
intent(in) :: qrule
6503 real(RKC) ,
intent(out) :: integral, abserr
6504 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6505 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6506 integer(IK) ,
intent(out) :: neval
6507 integer(IK) ,
intent(out) :: nint
6513 module function QAGD_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6515 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK2
6518 procedure(
real(RKC)) :: getFunc
6519 real(RKC) ,
intent(in) :: lb
6520 real(RKC) ,
intent(in) :: ub
6521 real(RKC) ,
intent(in) :: abstol
6522 real(RKC) ,
intent(in) :: reltol
6523 type(GK31_type) ,
intent(in) :: qrule
6524 real(RKC) ,
intent(out) :: integral, abserr
6525 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6526 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6527 integer(IK) ,
intent(out) :: neval
6528 integer(IK) ,
intent(out) :: nint
6534 module function QAGD_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK1
6539 procedure(
real(RKC)) :: getFunc
6540 real(RKC) ,
intent(in) :: lb
6541 real(RKC) ,
intent(in) :: ub
6542 real(RKC) ,
intent(in) :: abstol
6543 real(RKC) ,
intent(in) :: reltol
6544 type(GK31_type) ,
intent(in) :: qrule
6545 real(RKC) ,
intent(out) :: integral, abserr
6546 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6547 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6548 integer(IK) ,
intent(out) :: neval
6549 integer(IK) ,
intent(out) :: nint
6557 module function QAGD_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6559 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK5
6562 procedure(
real(RKC)) :: getFunc
6563 real(RKC) ,
intent(in) :: lb
6564 type(pinf_type) ,
intent(in) :: ub
6565 real(RKC) ,
intent(in) :: abstol
6566 real(RKC) ,
intent(in) :: reltol
6567 type(GK31_type) ,
intent(in) :: qrule
6568 real(RKC) ,
intent(out) :: integral, abserr
6569 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6570 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6571 integer(IK) ,
intent(out) :: neval
6572 integer(IK) ,
intent(out) :: nint
6578 module function QAGD_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK4
6583 procedure(
real(RKC)) :: getFunc
6584 real(RKC) ,
intent(in) :: lb
6585 type(pinf_type) ,
intent(in) :: ub
6586 real(RKC) ,
intent(in) :: abstol
6587 real(RKC) ,
intent(in) :: reltol
6588 type(GK31_type) ,
intent(in) :: qrule
6589 real(RKC) ,
intent(out) :: integral, abserr
6590 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6591 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6592 integer(IK) ,
intent(out) :: neval
6593 integer(IK) ,
intent(out) :: nint
6599 module function QAGD_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK3
6604 procedure(
real(RKC)) :: getFunc
6605 real(RKC) ,
intent(in) :: lb
6606 type(pinf_type) ,
intent(in) :: ub
6607 real(RKC) ,
intent(in) :: abstol
6608 real(RKC) ,
intent(in) :: reltol
6609 type(GK31_type) ,
intent(in) :: qrule
6610 real(RKC) ,
intent(out) :: integral, abserr
6611 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6612 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6613 integer(IK) ,
intent(out) :: neval
6614 integer(IK) ,
intent(out) :: nint
6620 module function QAGD_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK2
6625 procedure(
real(RKC)) :: getFunc
6626 real(RKC) ,
intent(in) :: lb
6627 type(pinf_type) ,
intent(in) :: ub
6628 real(RKC) ,
intent(in) :: abstol
6629 real(RKC) ,
intent(in) :: reltol
6630 type(GK31_type) ,
intent(in) :: qrule
6631 real(RKC) ,
intent(out) :: integral, abserr
6632 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6633 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6634 integer(IK) ,
intent(out) :: neval
6635 integer(IK) ,
intent(out) :: nint
6641 module function QAGD_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6643 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK1
6646 procedure(
real(RKC)) :: getFunc
6647 real(RKC) ,
intent(in) :: lb
6648 type(pinf_type) ,
intent(in) :: ub
6649 real(RKC) ,
intent(in) :: abstol
6650 real(RKC) ,
intent(in) :: reltol
6651 type(GK31_type) ,
intent(in) :: qrule
6652 real(RKC) ,
intent(out) :: integral, abserr
6653 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6654 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6655 integer(IK) ,
intent(out) :: neval
6656 integer(IK) ,
intent(out) :: nint
6664 module function QAGD_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6666 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK5
6669 procedure(
real(RKC)) :: getFunc
6670 type(ninf_type) ,
intent(in) :: lb
6671 real(RKC) ,
intent(in) :: ub
6672 real(RKC) ,
intent(in) :: abstol
6673 real(RKC) ,
intent(in) :: reltol
6674 type(GK31_type) ,
intent(in) :: qrule
6675 real(RKC) ,
intent(out) :: integral, abserr
6676 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6677 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6678 integer(IK) ,
intent(out) :: neval
6679 integer(IK) ,
intent(out) :: nint
6685 module function QAGD_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6687 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK4
6690 procedure(
real(RKC)) :: getFunc
6691 type(ninf_type) ,
intent(in) :: lb
6692 real(RKC) ,
intent(in) :: ub
6693 real(RKC) ,
intent(in) :: abstol
6694 real(RKC) ,
intent(in) :: reltol
6695 type(GK31_type) ,
intent(in) :: qrule
6696 real(RKC) ,
intent(out) :: integral, abserr
6697 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6698 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6699 integer(IK) ,
intent(out) :: neval
6700 integer(IK) ,
intent(out) :: nint
6706 module function QAGD_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK3
6711 procedure(
real(RKC)) :: getFunc
6712 type(ninf_type) ,
intent(in) :: lb
6713 real(RKC) ,
intent(in) :: ub
6714 real(RKC) ,
intent(in) :: abstol
6715 real(RKC) ,
intent(in) :: reltol
6716 type(GK31_type) ,
intent(in) :: qrule
6717 real(RKC) ,
intent(out) :: integral, abserr
6718 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6719 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6720 integer(IK) ,
intent(out) :: neval
6721 integer(IK) ,
intent(out) :: nint
6727 module function QAGD_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6729 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK2
6732 procedure(
real(RKC)) :: getFunc
6733 type(ninf_type) ,
intent(in) :: lb
6734 real(RKC) ,
intent(in) :: ub
6735 real(RKC) ,
intent(in) :: abstol
6736 real(RKC) ,
intent(in) :: reltol
6737 type(GK31_type) ,
intent(in) :: qrule
6738 real(RKC) ,
intent(out) :: integral, abserr
6739 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6740 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6741 integer(IK) ,
intent(out) :: neval
6742 integer(IK) ,
intent(out) :: nint
6748 module function QAGD_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK1
6753 procedure(
real(RKC)) :: getFunc
6754 type(ninf_type) ,
intent(in) :: lb
6755 real(RKC) ,
intent(in) :: ub
6756 real(RKC) ,
intent(in) :: abstol
6757 real(RKC) ,
intent(in) :: reltol
6758 type(GK31_type) ,
intent(in) :: qrule
6759 real(RKC) ,
intent(out) :: integral, abserr
6760 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6761 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6762 integer(IK) ,
intent(out) :: neval
6763 integer(IK) ,
intent(out) :: nint
6771 module function QAGD_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6773 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK5
6776 procedure(
real(RKC)) :: getFunc
6777 type(ninf_type) ,
intent(in) :: lb
6778 type(pinf_type) ,
intent(in) :: ub
6779 real(RKC) ,
intent(in) :: abstol
6780 real(RKC) ,
intent(in) :: reltol
6781 type(GK31_type) ,
intent(in) :: qrule
6782 real(RKC) ,
intent(out) :: integral, abserr
6783 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6784 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6785 integer(IK) ,
intent(out) :: neval
6786 integer(IK) ,
intent(out) :: nint
6792 module function QAGD_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK4
6797 procedure(
real(RKC)) :: getFunc
6798 type(ninf_type) ,
intent(in) :: lb
6799 type(pinf_type) ,
intent(in) :: ub
6800 real(RKC) ,
intent(in) :: abstol
6801 real(RKC) ,
intent(in) :: reltol
6802 type(GK31_type) ,
intent(in) :: qrule
6803 real(RKC) ,
intent(out) :: integral, abserr
6804 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6805 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6806 integer(IK) ,
intent(out) :: neval
6807 integer(IK) ,
intent(out) :: nint
6813 module function QAGD_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6815 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK3
6818 procedure(
real(RKC)) :: getFunc
6819 type(ninf_type) ,
intent(in) :: lb
6820 type(pinf_type) ,
intent(in) :: ub
6821 real(RKC) ,
intent(in) :: abstol
6822 real(RKC) ,
intent(in) :: reltol
6823 type(GK31_type) ,
intent(in) :: qrule
6824 real(RKC) ,
intent(out) :: integral, abserr
6825 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6826 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6827 integer(IK) ,
intent(out) :: neval
6828 integer(IK) ,
intent(out) :: nint
6834 module function QAGD_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK2
6839 procedure(
real(RKC)) :: getFunc
6840 type(ninf_type) ,
intent(in) :: lb
6841 type(pinf_type) ,
intent(in) :: ub
6842 real(RKC) ,
intent(in) :: abstol
6843 real(RKC) ,
intent(in) :: reltol
6844 type(GK31_type) ,
intent(in) :: qrule
6845 real(RKC) ,
intent(out) :: integral, abserr
6846 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6847 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6848 integer(IK) ,
intent(out) :: neval
6849 integer(IK) ,
intent(out) :: nint
6855 module function QAGD_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6857 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK1
6860 procedure(
real(RKC)) :: getFunc
6861 type(ninf_type) ,
intent(in) :: lb
6862 type(pinf_type) ,
intent(in) :: ub
6863 real(RKC) ,
intent(in) :: abstol
6864 real(RKC) ,
intent(in) :: reltol
6865 type(GK31_type) ,
intent(in) :: qrule
6866 real(RKC) ,
intent(out) :: integral, abserr
6867 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6868 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6869 integer(IK) ,
intent(out) :: neval
6870 integer(IK) ,
intent(out) :: nint
6886 module function QAGD_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6888 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK5
6891 procedure(
real(RKC)) :: getFunc
6892 real(RKC) ,
intent(in) :: lb
6893 real(RKC) ,
intent(in) :: ub
6894 real(RKC) ,
intent(in) :: abstol
6895 real(RKC) ,
intent(in) :: reltol
6896 type(GK41_type) ,
intent(in) :: qrule
6897 real(RKC) ,
intent(out) :: integral, abserr
6898 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6899 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6900 integer(IK) ,
intent(out) :: neval
6901 integer(IK) ,
intent(out) :: nint
6907 module function QAGD_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6909 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK4
6912 procedure(
real(RKC)) :: getFunc
6913 real(RKC) ,
intent(in) :: lb
6914 real(RKC) ,
intent(in) :: ub
6915 real(RKC) ,
intent(in) :: abstol
6916 real(RKC) ,
intent(in) :: reltol
6917 type(GK41_type) ,
intent(in) :: qrule
6918 real(RKC) ,
intent(out) :: integral, abserr
6919 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6920 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6921 integer(IK) ,
intent(out) :: neval
6922 integer(IK) ,
intent(out) :: nint
6928 module function QAGD_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6930 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK3
6933 procedure(
real(RKC)) :: getFunc
6934 real(RKC) ,
intent(in) :: lb
6935 real(RKC) ,
intent(in) :: ub
6936 real(RKC) ,
intent(in) :: abstol
6937 real(RKC) ,
intent(in) :: reltol
6938 type(GK41_type) ,
intent(in) :: qrule
6939 real(RKC) ,
intent(out) :: integral, abserr
6940 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6941 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6942 integer(IK) ,
intent(out) :: neval
6943 integer(IK) ,
intent(out) :: nint
6949 module function QAGD_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6951 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK2
6954 procedure(
real(RKC)) :: getFunc
6955 real(RKC) ,
intent(in) :: lb
6956 real(RKC) ,
intent(in) :: ub
6957 real(RKC) ,
intent(in) :: abstol
6958 real(RKC) ,
intent(in) :: reltol
6959 type(GK41_type) ,
intent(in) :: qrule
6960 real(RKC) ,
intent(out) :: integral, abserr
6961 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6962 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6963 integer(IK) ,
intent(out) :: neval
6964 integer(IK) ,
intent(out) :: nint
6970 module function QAGD_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6972 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK1
6975 procedure(
real(RKC)) :: getFunc
6976 real(RKC) ,
intent(in) :: lb
6977 real(RKC) ,
intent(in) :: ub
6978 real(RKC) ,
intent(in) :: abstol
6979 real(RKC) ,
intent(in) :: reltol
6980 type(GK41_type) ,
intent(in) :: qrule
6981 real(RKC) ,
intent(out) :: integral, abserr
6982 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6983 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6984 integer(IK) ,
intent(out) :: neval
6985 integer(IK) ,
intent(out) :: nint
6993 module function QAGD_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6995 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK5
6998 procedure(
real(RKC)) :: getFunc
6999 real(RKC) ,
intent(in) :: lb
7000 type(pinf_type) ,
intent(in) :: ub
7001 real(RKC) ,
intent(in) :: abstol
7002 real(RKC) ,
intent(in) :: reltol
7003 type(GK41_type) ,
intent(in) :: qrule
7004 real(RKC) ,
intent(out) :: integral, abserr
7005 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7006 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7007 integer(IK) ,
intent(out) :: neval
7008 integer(IK) ,
intent(out) :: nint
7014 module function QAGD_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK4
7019 procedure(
real(RKC)) :: getFunc
7020 real(RKC) ,
intent(in) :: lb
7021 type(pinf_type) ,
intent(in) :: ub
7022 real(RKC) ,
intent(in) :: abstol
7023 real(RKC) ,
intent(in) :: reltol
7024 type(GK41_type) ,
intent(in) :: qrule
7025 real(RKC) ,
intent(out) :: integral, abserr
7026 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7027 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7028 integer(IK) ,
intent(out) :: neval
7029 integer(IK) ,
intent(out) :: nint
7035 module function QAGD_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7037 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK3
7040 procedure(
real(RKC)) :: getFunc
7041 real(RKC) ,
intent(in) :: lb
7042 type(pinf_type) ,
intent(in) :: ub
7043 real(RKC) ,
intent(in) :: abstol
7044 real(RKC) ,
intent(in) :: reltol
7045 type(GK41_type) ,
intent(in) :: qrule
7046 real(RKC) ,
intent(out) :: integral, abserr
7047 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7048 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7049 integer(IK) ,
intent(out) :: neval
7050 integer(IK) ,
intent(out) :: nint
7056 module function QAGD_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK2
7061 procedure(
real(RKC)) :: getFunc
7062 real(RKC) ,
intent(in) :: lb
7063 type(pinf_type) ,
intent(in) :: ub
7064 real(RKC) ,
intent(in) :: abstol
7065 real(RKC) ,
intent(in) :: reltol
7066 type(GK41_type) ,
intent(in) :: qrule
7067 real(RKC) ,
intent(out) :: integral, abserr
7068 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7069 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7070 integer(IK) ,
intent(out) :: neval
7071 integer(IK) ,
intent(out) :: nint
7077 module function QAGD_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7079 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK1
7082 procedure(
real(RKC)) :: getFunc
7083 real(RKC) ,
intent(in) :: lb
7084 type(pinf_type) ,
intent(in) :: ub
7085 real(RKC) ,
intent(in) :: abstol
7086 real(RKC) ,
intent(in) :: reltol
7087 type(GK41_type) ,
intent(in) :: qrule
7088 real(RKC) ,
intent(out) :: integral, abserr
7089 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7090 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7091 integer(IK) ,
intent(out) :: neval
7092 integer(IK) ,
intent(out) :: nint
7100 module function QAGD_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7102 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK5
7105 procedure(
real(RKC)) :: getFunc
7106 type(ninf_type) ,
intent(in) :: lb
7107 real(RKC) ,
intent(in) :: ub
7108 real(RKC) ,
intent(in) :: abstol
7109 real(RKC) ,
intent(in) :: reltol
7110 type(GK41_type) ,
intent(in) :: qrule
7111 real(RKC) ,
intent(out) :: integral, abserr
7112 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7113 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7114 integer(IK) ,
intent(out) :: neval
7115 integer(IK) ,
intent(out) :: nint
7121 module function QAGD_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7123 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK4
7126 procedure(
real(RKC)) :: getFunc
7127 type(ninf_type) ,
intent(in) :: lb
7128 real(RKC) ,
intent(in) :: ub
7129 real(RKC) ,
intent(in) :: abstol
7130 real(RKC) ,
intent(in) :: reltol
7131 type(GK41_type) ,
intent(in) :: qrule
7132 real(RKC) ,
intent(out) :: integral, abserr
7133 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7134 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7135 integer(IK) ,
intent(out) :: neval
7136 integer(IK) ,
intent(out) :: nint
7142 module function QAGD_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK3
7147 procedure(
real(RKC)) :: getFunc
7148 type(ninf_type) ,
intent(in) :: lb
7149 real(RKC) ,
intent(in) :: ub
7150 real(RKC) ,
intent(in) :: abstol
7151 real(RKC) ,
intent(in) :: reltol
7152 type(GK41_type) ,
intent(in) :: qrule
7153 real(RKC) ,
intent(out) :: integral, abserr
7154 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7155 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7156 integer(IK) ,
intent(out) :: neval
7157 integer(IK) ,
intent(out) :: nint
7163 module function QAGD_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7165 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK2
7168 procedure(
real(RKC)) :: getFunc
7169 type(ninf_type) ,
intent(in) :: lb
7170 real(RKC) ,
intent(in) :: ub
7171 real(RKC) ,
intent(in) :: abstol
7172 real(RKC) ,
intent(in) :: reltol
7173 type(GK41_type) ,
intent(in) :: qrule
7174 real(RKC) ,
intent(out) :: integral, abserr
7175 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7176 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7177 integer(IK) ,
intent(out) :: neval
7178 integer(IK) ,
intent(out) :: nint
7184 module function QAGD_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK1
7189 procedure(
real(RKC)) :: getFunc
7190 type(ninf_type) ,
intent(in) :: lb
7191 real(RKC) ,
intent(in) :: ub
7192 real(RKC) ,
intent(in) :: abstol
7193 real(RKC) ,
intent(in) :: reltol
7194 type(GK41_type) ,
intent(in) :: qrule
7195 real(RKC) ,
intent(out) :: integral, abserr
7196 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7197 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7198 integer(IK) ,
intent(out) :: neval
7199 integer(IK) ,
intent(out) :: nint
7207 module function QAGD_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7209 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK5
7212 procedure(
real(RKC)) :: getFunc
7213 type(ninf_type) ,
intent(in) :: lb
7214 type(pinf_type) ,
intent(in) :: ub
7215 real(RKC) ,
intent(in) :: abstol
7216 real(RKC) ,
intent(in) :: reltol
7217 type(GK41_type) ,
intent(in) :: qrule
7218 real(RKC) ,
intent(out) :: integral, abserr
7219 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7220 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7221 integer(IK) ,
intent(out) :: neval
7222 integer(IK) ,
intent(out) :: nint
7228 module function QAGD_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK4
7233 procedure(
real(RKC)) :: getFunc
7234 type(ninf_type) ,
intent(in) :: lb
7235 type(pinf_type) ,
intent(in) :: ub
7236 real(RKC) ,
intent(in) :: abstol
7237 real(RKC) ,
intent(in) :: reltol
7238 type(GK41_type) ,
intent(in) :: qrule
7239 real(RKC) ,
intent(out) :: integral, abserr
7240 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7241 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7242 integer(IK) ,
intent(out) :: neval
7243 integer(IK) ,
intent(out) :: nint
7249 module function QAGD_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7251 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK3
7254 procedure(
real(RKC)) :: getFunc
7255 type(ninf_type) ,
intent(in) :: lb
7256 type(pinf_type) ,
intent(in) :: ub
7257 real(RKC) ,
intent(in) :: abstol
7258 real(RKC) ,
intent(in) :: reltol
7259 type(GK41_type) ,
intent(in) :: qrule
7260 real(RKC) ,
intent(out) :: integral, abserr
7261 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7262 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7263 integer(IK) ,
intent(out) :: neval
7264 integer(IK) ,
intent(out) :: nint
7270 module function QAGD_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK2
7275 procedure(
real(RKC)) :: getFunc
7276 type(ninf_type) ,
intent(in) :: lb
7277 type(pinf_type) ,
intent(in) :: ub
7278 real(RKC) ,
intent(in) :: abstol
7279 real(RKC) ,
intent(in) :: reltol
7280 type(GK41_type) ,
intent(in) :: qrule
7281 real(RKC) ,
intent(out) :: integral, abserr
7282 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7283 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7284 integer(IK) ,
intent(out) :: neval
7285 integer(IK) ,
intent(out) :: nint
7291 module function QAGD_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7293 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK1
7296 procedure(
real(RKC)) :: getFunc
7297 type(ninf_type) ,
intent(in) :: lb
7298 type(pinf_type) ,
intent(in) :: ub
7299 real(RKC) ,
intent(in) :: abstol
7300 real(RKC) ,
intent(in) :: reltol
7301 type(GK41_type) ,
intent(in) :: qrule
7302 real(RKC) ,
intent(out) :: integral, abserr
7303 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7304 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7305 integer(IK) ,
intent(out) :: neval
7306 integer(IK) ,
intent(out) :: nint
7322 module function QAGD_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7324 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK5
7327 procedure(
real(RKC)) :: getFunc
7328 real(RKC) ,
intent(in) :: lb
7329 real(RKC) ,
intent(in) :: ub
7330 real(RKC) ,
intent(in) :: abstol
7331 real(RKC) ,
intent(in) :: reltol
7332 type(GK51_type) ,
intent(in) :: qrule
7333 real(RKC) ,
intent(out) :: integral, abserr
7334 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7335 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7336 integer(IK) ,
intent(out) :: neval
7337 integer(IK) ,
intent(out) :: nint
7343 module function QAGD_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7345 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK4
7348 procedure(
real(RKC)) :: getFunc
7349 real(RKC) ,
intent(in) :: lb
7350 real(RKC) ,
intent(in) :: ub
7351 real(RKC) ,
intent(in) :: abstol
7352 real(RKC) ,
intent(in) :: reltol
7353 type(GK51_type) ,
intent(in) :: qrule
7354 real(RKC) ,
intent(out) :: integral, abserr
7355 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7356 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7357 integer(IK) ,
intent(out) :: neval
7358 integer(IK) ,
intent(out) :: nint
7364 module function QAGD_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7366 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK3
7369 procedure(
real(RKC)) :: getFunc
7370 real(RKC) ,
intent(in) :: lb
7371 real(RKC) ,
intent(in) :: ub
7372 real(RKC) ,
intent(in) :: abstol
7373 real(RKC) ,
intent(in) :: reltol
7374 type(GK51_type) ,
intent(in) :: qrule
7375 real(RKC) ,
intent(out) :: integral, abserr
7376 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7377 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7378 integer(IK) ,
intent(out) :: neval
7379 integer(IK) ,
intent(out) :: nint
7385 module function QAGD_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7387 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK2
7390 procedure(
real(RKC)) :: getFunc
7391 real(RKC) ,
intent(in) :: lb
7392 real(RKC) ,
intent(in) :: ub
7393 real(RKC) ,
intent(in) :: abstol
7394 real(RKC) ,
intent(in) :: reltol
7395 type(GK51_type) ,
intent(in) :: qrule
7396 real(RKC) ,
intent(out) :: integral, abserr
7397 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7398 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7399 integer(IK) ,
intent(out) :: neval
7400 integer(IK) ,
intent(out) :: nint
7406 module function QAGD_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7408 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK1
7411 procedure(
real(RKC)) :: getFunc
7412 real(RKC) ,
intent(in) :: lb
7413 real(RKC) ,
intent(in) :: ub
7414 real(RKC) ,
intent(in) :: abstol
7415 real(RKC) ,
intent(in) :: reltol
7416 type(GK51_type) ,
intent(in) :: qrule
7417 real(RKC) ,
intent(out) :: integral, abserr
7418 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7419 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7420 integer(IK) ,
intent(out) :: neval
7421 integer(IK) ,
intent(out) :: nint
7429 module function QAGD_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7431 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK5
7434 procedure(
real(RKC)) :: getFunc
7435 real(RKC) ,
intent(in) :: lb
7436 type(pinf_type) ,
intent(in) :: ub
7437 real(RKC) ,
intent(in) :: abstol
7438 real(RKC) ,
intent(in) :: reltol
7439 type(GK51_type) ,
intent(in) :: qrule
7440 real(RKC) ,
intent(out) :: integral, abserr
7441 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7442 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7443 integer(IK) ,
intent(out) :: neval
7444 integer(IK) ,
intent(out) :: nint
7450 module function QAGD_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK4
7455 procedure(
real(RKC)) :: getFunc
7456 real(RKC) ,
intent(in) :: lb
7457 type(pinf_type) ,
intent(in) :: ub
7458 real(RKC) ,
intent(in) :: abstol
7459 real(RKC) ,
intent(in) :: reltol
7460 type(GK51_type) ,
intent(in) :: qrule
7461 real(RKC) ,
intent(out) :: integral, abserr
7462 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7463 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7464 integer(IK) ,
intent(out) :: neval
7465 integer(IK) ,
intent(out) :: nint
7471 module function QAGD_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7473 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK3
7476 procedure(
real(RKC)) :: getFunc
7477 real(RKC) ,
intent(in) :: lb
7478 type(pinf_type) ,
intent(in) :: ub
7479 real(RKC) ,
intent(in) :: abstol
7480 real(RKC) ,
intent(in) :: reltol
7481 type(GK51_type) ,
intent(in) :: qrule
7482 real(RKC) ,
intent(out) :: integral, abserr
7483 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7484 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7485 integer(IK) ,
intent(out) :: neval
7486 integer(IK) ,
intent(out) :: nint
7492 module function QAGD_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK2
7497 procedure(
real(RKC)) :: getFunc
7498 real(RKC) ,
intent(in) :: lb
7499 type(pinf_type) ,
intent(in) :: ub
7500 real(RKC) ,
intent(in) :: abstol
7501 real(RKC) ,
intent(in) :: reltol
7502 type(GK51_type) ,
intent(in) :: qrule
7503 real(RKC) ,
intent(out) :: integral, abserr
7504 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7505 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7506 integer(IK) ,
intent(out) :: neval
7507 integer(IK) ,
intent(out) :: nint
7513 module function QAGD_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7515 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK1
7518 procedure(
real(RKC)) :: getFunc
7519 real(RKC) ,
intent(in) :: lb
7520 type(pinf_type) ,
intent(in) :: ub
7521 real(RKC) ,
intent(in) :: abstol
7522 real(RKC) ,
intent(in) :: reltol
7523 type(GK51_type) ,
intent(in) :: qrule
7524 real(RKC) ,
intent(out) :: integral, abserr
7525 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7526 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7527 integer(IK) ,
intent(out) :: neval
7528 integer(IK) ,
intent(out) :: nint
7536 module function QAGD_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7538 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK5
7541 procedure(
real(RKC)) :: getFunc
7542 type(ninf_type) ,
intent(in) :: lb
7543 real(RKC) ,
intent(in) :: ub
7544 real(RKC) ,
intent(in) :: abstol
7545 real(RKC) ,
intent(in) :: reltol
7546 type(GK51_type) ,
intent(in) :: qrule
7547 real(RKC) ,
intent(out) :: integral, abserr
7548 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7549 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7550 integer(IK) ,
intent(out) :: neval
7551 integer(IK) ,
intent(out) :: nint
7557 module function QAGD_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7559 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK4
7562 procedure(
real(RKC)) :: getFunc
7563 type(ninf_type) ,
intent(in) :: lb
7564 real(RKC) ,
intent(in) :: ub
7565 real(RKC) ,
intent(in) :: abstol
7566 real(RKC) ,
intent(in) :: reltol
7567 type(GK51_type) ,
intent(in) :: qrule
7568 real(RKC) ,
intent(out) :: integral, abserr
7569 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7570 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7571 integer(IK) ,
intent(out) :: neval
7572 integer(IK) ,
intent(out) :: nint
7578 module function QAGD_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK3
7583 procedure(
real(RKC)) :: getFunc
7584 type(ninf_type) ,
intent(in) :: lb
7585 real(RKC) ,
intent(in) :: ub
7586 real(RKC) ,
intent(in) :: abstol
7587 real(RKC) ,
intent(in) :: reltol
7588 type(GK51_type) ,
intent(in) :: qrule
7589 real(RKC) ,
intent(out) :: integral, abserr
7590 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7591 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7592 integer(IK) ,
intent(out) :: neval
7593 integer(IK) ,
intent(out) :: nint
7599 module function QAGD_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK2
7604 procedure(
real(RKC)) :: getFunc
7605 type(ninf_type) ,
intent(in) :: lb
7606 real(RKC) ,
intent(in) :: ub
7607 real(RKC) ,
intent(in) :: abstol
7608 real(RKC) ,
intent(in) :: reltol
7609 type(GK51_type) ,
intent(in) :: qrule
7610 real(RKC) ,
intent(out) :: integral, abserr
7611 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7612 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7613 integer(IK) ,
intent(out) :: neval
7614 integer(IK) ,
intent(out) :: nint
7620 module function QAGD_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK1
7625 procedure(
real(RKC)) :: getFunc
7626 type(ninf_type) ,
intent(in) :: lb
7627 real(RKC) ,
intent(in) :: ub
7628 real(RKC) ,
intent(in) :: abstol
7629 real(RKC) ,
intent(in) :: reltol
7630 type(GK51_type) ,
intent(in) :: qrule
7631 real(RKC) ,
intent(out) :: integral, abserr
7632 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7633 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7634 integer(IK) ,
intent(out) :: neval
7635 integer(IK) ,
intent(out) :: nint
7643 module function QAGD_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7645 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK5
7648 procedure(
real(RKC)) :: getFunc
7649 type(ninf_type) ,
intent(in) :: lb
7650 type(pinf_type) ,
intent(in) :: ub
7651 real(RKC) ,
intent(in) :: abstol
7652 real(RKC) ,
intent(in) :: reltol
7653 type(GK51_type) ,
intent(in) :: qrule
7654 real(RKC) ,
intent(out) :: integral, abserr
7655 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7656 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7657 integer(IK) ,
intent(out) :: neval
7658 integer(IK) ,
intent(out) :: nint
7664 module function QAGD_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7666 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK4
7669 procedure(
real(RKC)) :: getFunc
7670 type(ninf_type) ,
intent(in) :: lb
7671 type(pinf_type) ,
intent(in) :: ub
7672 real(RKC) ,
intent(in) :: abstol
7673 real(RKC) ,
intent(in) :: reltol
7674 type(GK51_type) ,
intent(in) :: qrule
7675 real(RKC) ,
intent(out) :: integral, abserr
7676 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7677 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7678 integer(IK) ,
intent(out) :: neval
7679 integer(IK) ,
intent(out) :: nint
7685 module function QAGD_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7687 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK3
7690 procedure(
real(RKC)) :: getFunc
7691 type(ninf_type) ,
intent(in) :: lb
7692 type(pinf_type) ,
intent(in) :: ub
7693 real(RKC) ,
intent(in) :: abstol
7694 real(RKC) ,
intent(in) :: reltol
7695 type(GK51_type) ,
intent(in) :: qrule
7696 real(RKC) ,
intent(out) :: integral, abserr
7697 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7698 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7699 integer(IK) ,
intent(out) :: neval
7700 integer(IK) ,
intent(out) :: nint
7706 module function QAGD_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK2
7711 procedure(
real(RKC)) :: getFunc
7712 type(ninf_type) ,
intent(in) :: lb
7713 type(pinf_type) ,
intent(in) :: ub
7714 real(RKC) ,
intent(in) :: abstol
7715 real(RKC) ,
intent(in) :: reltol
7716 type(GK51_type) ,
intent(in) :: qrule
7717 real(RKC) ,
intent(out) :: integral, abserr
7718 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7719 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7720 integer(IK) ,
intent(out) :: neval
7721 integer(IK) ,
intent(out) :: nint
7727 module function QAGD_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7729 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK1
7732 procedure(
real(RKC)) :: getFunc
7733 type(ninf_type) ,
intent(in) :: lb
7734 type(pinf_type) ,
intent(in) :: ub
7735 real(RKC) ,
intent(in) :: abstol
7736 real(RKC) ,
intent(in) :: reltol
7737 type(GK51_type) ,
intent(in) :: qrule
7738 real(RKC) ,
intent(out) :: integral, abserr
7739 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7740 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7741 integer(IK) ,
intent(out) :: neval
7742 integer(IK) ,
intent(out) :: nint
7758 module function QAGD_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7760 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK5
7763 procedure(
real(RKC)) :: getFunc
7764 real(RKC) ,
intent(in) :: lb
7765 real(RKC) ,
intent(in) :: ub
7766 real(RKC) ,
intent(in) :: abstol
7767 real(RKC) ,
intent(in) :: reltol
7768 type(GK61_type) ,
intent(in) :: qrule
7769 real(RKC) ,
intent(out) :: integral, abserr
7770 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7771 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7772 integer(IK) ,
intent(out) :: neval
7773 integer(IK) ,
intent(out) :: nint
7779 module function QAGD_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7781 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK4
7784 procedure(
real(RKC)) :: getFunc
7785 real(RKC) ,
intent(in) :: lb
7786 real(RKC) ,
intent(in) :: ub
7787 real(RKC) ,
intent(in) :: abstol
7788 real(RKC) ,
intent(in) :: reltol
7789 type(GK61_type) ,
intent(in) :: qrule
7790 real(RKC) ,
intent(out) :: integral, abserr
7791 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7792 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7793 integer(IK) ,
intent(out) :: neval
7794 integer(IK) ,
intent(out) :: nint
7800 module function QAGD_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7802 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK3
7805 procedure(
real(RKC)) :: getFunc
7806 real(RKC) ,
intent(in) :: lb
7807 real(RKC) ,
intent(in) :: ub
7808 real(RKC) ,
intent(in) :: abstol
7809 real(RKC) ,
intent(in) :: reltol
7810 type(GK61_type) ,
intent(in) :: qrule
7811 real(RKC) ,
intent(out) :: integral, abserr
7812 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7813 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7814 integer(IK) ,
intent(out) :: neval
7815 integer(IK) ,
intent(out) :: nint
7821 module function QAGD_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7823 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK2
7826 procedure(
real(RKC)) :: getFunc
7827 real(RKC) ,
intent(in) :: lb
7828 real(RKC) ,
intent(in) :: ub
7829 real(RKC) ,
intent(in) :: abstol
7830 real(RKC) ,
intent(in) :: reltol
7831 type(GK61_type) ,
intent(in) :: qrule
7832 real(RKC) ,
intent(out) :: integral, abserr
7833 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7834 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7835 integer(IK) ,
intent(out) :: neval
7836 integer(IK) ,
intent(out) :: nint
7842 module function QAGD_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7844 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK1
7847 procedure(
real(RKC)) :: getFunc
7848 real(RKC) ,
intent(in) :: lb
7849 real(RKC) ,
intent(in) :: ub
7850 real(RKC) ,
intent(in) :: abstol
7851 real(RKC) ,
intent(in) :: reltol
7852 type(GK61_type) ,
intent(in) :: qrule
7853 real(RKC) ,
intent(out) :: integral, abserr
7854 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7855 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7856 integer(IK) ,
intent(out) :: neval
7857 integer(IK) ,
intent(out) :: nint
7865 module function QAGD_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7867 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK5
7870 procedure(
real(RKC)) :: getFunc
7871 real(RKC) ,
intent(in) :: lb
7872 type(pinf_type) ,
intent(in) :: ub
7873 real(RKC) ,
intent(in) :: abstol
7874 real(RKC) ,
intent(in) :: reltol
7875 type(GK61_type) ,
intent(in) :: qrule
7876 real(RKC) ,
intent(out) :: integral, abserr
7877 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7878 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7879 integer(IK) ,
intent(out) :: neval
7880 integer(IK) ,
intent(out) :: nint
7886 module function QAGD_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7888 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK4
7891 procedure(
real(RKC)) :: getFunc
7892 real(RKC) ,
intent(in) :: lb
7893 type(pinf_type) ,
intent(in) :: ub
7894 real(RKC) ,
intent(in) :: abstol
7895 real(RKC) ,
intent(in) :: reltol
7896 type(GK61_type) ,
intent(in) :: qrule
7897 real(RKC) ,
intent(out) :: integral, abserr
7898 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7899 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7900 integer(IK) ,
intent(out) :: neval
7901 integer(IK) ,
intent(out) :: nint
7907 module function QAGD_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7909 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK3
7912 procedure(
real(RKC)) :: getFunc
7913 real(RKC) ,
intent(in) :: lb
7914 type(pinf_type) ,
intent(in) :: ub
7915 real(RKC) ,
intent(in) :: abstol
7916 real(RKC) ,
intent(in) :: reltol
7917 type(GK61_type) ,
intent(in) :: qrule
7918 real(RKC) ,
intent(out) :: integral, abserr
7919 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7920 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7921 integer(IK) ,
intent(out) :: neval
7922 integer(IK) ,
intent(out) :: nint
7928 module function QAGD_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7930 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK2
7933 procedure(
real(RKC)) :: getFunc
7934 real(RKC) ,
intent(in) :: lb
7935 type(pinf_type) ,
intent(in) :: ub
7936 real(RKC) ,
intent(in) :: abstol
7937 real(RKC) ,
intent(in) :: reltol
7938 type(GK61_type) ,
intent(in) :: qrule
7939 real(RKC) ,
intent(out) :: integral, abserr
7940 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7941 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7942 integer(IK) ,
intent(out) :: neval
7943 integer(IK) ,
intent(out) :: nint
7949 module function QAGD_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7951 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK1
7954 procedure(
real(RKC)) :: getFunc
7955 real(RKC) ,
intent(in) :: lb
7956 type(pinf_type) ,
intent(in) :: ub
7957 real(RKC) ,
intent(in) :: abstol
7958 real(RKC) ,
intent(in) :: reltol
7959 type(GK61_type) ,
intent(in) :: qrule
7960 real(RKC) ,
intent(out) :: integral, abserr
7961 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7962 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7963 integer(IK) ,
intent(out) :: neval
7964 integer(IK) ,
intent(out) :: nint
7972 module function QAGD_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7974 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK5
7977 procedure(
real(RKC)) :: getFunc
7978 type(ninf_type) ,
intent(in) :: lb
7979 real(RKC) ,
intent(in) :: ub
7980 real(RKC) ,
intent(in) :: abstol
7981 real(RKC) ,
intent(in) :: reltol
7982 type(GK61_type) ,
intent(in) :: qrule
7983 real(RKC) ,
intent(out) :: integral, abserr
7984 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7985 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7986 integer(IK) ,
intent(out) :: neval
7987 integer(IK) ,
intent(out) :: nint
7993 module function QAGD_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7995 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK4
7998 procedure(
real(RKC)) :: getFunc
7999 type(ninf_type) ,
intent(in) :: lb
8000 real(RKC) ,
intent(in) :: ub
8001 real(RKC) ,
intent(in) :: abstol
8002 real(RKC) ,
intent(in) :: reltol
8003 type(GK61_type) ,
intent(in) :: qrule
8004 real(RKC) ,
intent(out) :: integral, abserr
8005 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8006 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8007 integer(IK) ,
intent(out) :: neval
8008 integer(IK) ,
intent(out) :: nint
8014 module function QAGD_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK3
8019 procedure(
real(RKC)) :: getFunc
8020 type(ninf_type) ,
intent(in) :: lb
8021 real(RKC) ,
intent(in) :: ub
8022 real(RKC) ,
intent(in) :: abstol
8023 real(RKC) ,
intent(in) :: reltol
8024 type(GK61_type) ,
intent(in) :: qrule
8025 real(RKC) ,
intent(out) :: integral, abserr
8026 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8027 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8028 integer(IK) ,
intent(out) :: neval
8029 integer(IK) ,
intent(out) :: nint
8035 module function QAGD_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8037 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK2
8040 procedure(
real(RKC)) :: getFunc
8041 type(ninf_type) ,
intent(in) :: lb
8042 real(RKC) ,
intent(in) :: ub
8043 real(RKC) ,
intent(in) :: abstol
8044 real(RKC) ,
intent(in) :: reltol
8045 type(GK61_type) ,
intent(in) :: qrule
8046 real(RKC) ,
intent(out) :: integral, abserr
8047 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8048 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8049 integer(IK) ,
intent(out) :: neval
8050 integer(IK) ,
intent(out) :: nint
8056 module function QAGD_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK1
8061 procedure(
real(RKC)) :: getFunc
8062 type(ninf_type) ,
intent(in) :: lb
8063 real(RKC) ,
intent(in) :: ub
8064 real(RKC) ,
intent(in) :: abstol
8065 real(RKC) ,
intent(in) :: reltol
8066 type(GK61_type) ,
intent(in) :: qrule
8067 real(RKC) ,
intent(out) :: integral, abserr
8068 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8069 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8070 integer(IK) ,
intent(out) :: neval
8071 integer(IK) ,
intent(out) :: nint
8079 module function QAGD_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8081 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK5
8084 procedure(
real(RKC)) :: getFunc
8085 type(ninf_type) ,
intent(in) :: lb
8086 type(pinf_type) ,
intent(in) :: ub
8087 real(RKC) ,
intent(in) :: abstol
8088 real(RKC) ,
intent(in) :: reltol
8089 type(GK61_type) ,
intent(in) :: qrule
8090 real(RKC) ,
intent(out) :: integral, abserr
8091 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8092 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8093 integer(IK) ,
intent(out) :: neval
8094 integer(IK) ,
intent(out) :: nint
8100 module function QAGD_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8102 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK4
8105 procedure(
real(RKC)) :: getFunc
8106 type(ninf_type) ,
intent(in) :: lb
8107 type(pinf_type) ,
intent(in) :: ub
8108 real(RKC) ,
intent(in) :: abstol
8109 real(RKC) ,
intent(in) :: reltol
8110 type(GK61_type) ,
intent(in) :: qrule
8111 real(RKC) ,
intent(out) :: integral, abserr
8112 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8113 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8114 integer(IK) ,
intent(out) :: neval
8115 integer(IK) ,
intent(out) :: nint
8121 module function QAGD_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8123 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK3
8126 procedure(
real(RKC)) :: getFunc
8127 type(ninf_type) ,
intent(in) :: lb
8128 type(pinf_type) ,
intent(in) :: ub
8129 real(RKC) ,
intent(in) :: abstol
8130 real(RKC) ,
intent(in) :: reltol
8131 type(GK61_type) ,
intent(in) :: qrule
8132 real(RKC) ,
intent(out) :: integral, abserr
8133 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8134 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8135 integer(IK) ,
intent(out) :: neval
8136 integer(IK) ,
intent(out) :: nint
8142 module function QAGD_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK2
8147 procedure(
real(RKC)) :: getFunc
8148 type(ninf_type) ,
intent(in) :: lb
8149 type(pinf_type) ,
intent(in) :: ub
8150 real(RKC) ,
intent(in) :: abstol
8151 real(RKC) ,
intent(in) :: reltol
8152 type(GK61_type) ,
intent(in) :: qrule
8153 real(RKC) ,
intent(out) :: integral, abserr
8154 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8155 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8156 integer(IK) ,
intent(out) :: neval
8157 integer(IK) ,
intent(out) :: nint
8163 module function QAGD_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8165 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK1
8168 procedure(
real(RKC)) :: getFunc
8169 type(ninf_type) ,
intent(in) :: lb
8170 type(pinf_type) ,
intent(in) :: ub
8171 real(RKC) ,
intent(in) :: abstol
8172 real(RKC) ,
intent(in) :: reltol
8173 type(GK61_type) ,
intent(in) :: qrule
8174 real(RKC) ,
intent(out) :: integral, abserr
8175 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8176 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8177 integer(IK) ,
intent(out) :: neval
8178 integer(IK) ,
intent(out) :: nint
8194 module function QAGD_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8196 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK5
8199 procedure(
real(RKC)) :: getFunc
8200 real(RKC) ,
intent(in) :: lb
8201 real(RKC) ,
intent(in) :: ub
8202 real(RKC) ,
intent(in) :: abstol
8203 real(RKC) ,
intent(in) :: reltol
8204 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8205 real(RKC) ,
intent(out) :: integral, abserr
8206 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8207 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8208 integer(IK) ,
intent(out) :: neval
8209 integer(IK) ,
intent(out) :: nint
8215 module function QAGD_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8217 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK4
8220 procedure(
real(RKC)) :: getFunc
8221 real(RKC) ,
intent(in) :: lb
8222 real(RKC) ,
intent(in) :: ub
8223 real(RKC) ,
intent(in) :: abstol
8224 real(RKC) ,
intent(in) :: reltol
8225 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8226 real(RKC) ,
intent(out) :: integral, abserr
8227 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8228 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8229 integer(IK) ,
intent(out) :: neval
8230 integer(IK) ,
intent(out) :: nint
8236 module function QAGD_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8238 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK3
8241 procedure(
real(RKC)) :: getFunc
8242 real(RKC) ,
intent(in) :: lb
8243 real(RKC) ,
intent(in) :: ub
8244 real(RKC) ,
intent(in) :: abstol
8245 real(RKC) ,
intent(in) :: reltol
8246 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8247 real(RKC) ,
intent(out) :: integral, abserr
8248 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8249 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8250 integer(IK) ,
intent(out) :: neval
8251 integer(IK) ,
intent(out) :: nint
8257 module function QAGD_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8259 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK2
8262 procedure(
real(RKC)) :: getFunc
8263 real(RKC) ,
intent(in) :: lb
8264 real(RKC) ,
intent(in) :: ub
8265 real(RKC) ,
intent(in) :: abstol
8266 real(RKC) ,
intent(in) :: reltol
8267 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8268 real(RKC) ,
intent(out) :: integral, abserr
8269 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8270 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8271 integer(IK) ,
intent(out) :: neval
8272 integer(IK) ,
intent(out) :: nint
8278 module function QAGD_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8280 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK1
8283 procedure(
real(RKC)) :: getFunc
8284 real(RKC) ,
intent(in) :: lb
8285 real(RKC) ,
intent(in) :: ub
8286 real(RKC) ,
intent(in) :: abstol
8287 real(RKC) ,
intent(in) :: reltol
8288 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8289 real(RKC) ,
intent(out) :: integral, abserr
8290 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8291 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8292 integer(IK) ,
intent(out) :: neval
8293 integer(IK) ,
intent(out) :: nint
8301 module function QAGD_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8303 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK5
8306 procedure(
real(RKC)) :: getFunc
8307 real(RKC) ,
intent(in) :: lb
8308 type(pinf_type) ,
intent(in) :: ub
8309 real(RKC) ,
intent(in) :: abstol
8310 real(RKC) ,
intent(in) :: reltol
8311 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8312 real(RKC) ,
intent(out) :: integral, abserr
8313 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8314 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8315 integer(IK) ,
intent(out) :: neval
8316 integer(IK) ,
intent(out) :: nint
8322 module function QAGD_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8324 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK4
8327 procedure(
real(RKC)) :: getFunc
8328 real(RKC) ,
intent(in) :: lb
8329 type(pinf_type) ,
intent(in) :: ub
8330 real(RKC) ,
intent(in) :: abstol
8331 real(RKC) ,
intent(in) :: reltol
8332 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8333 real(RKC) ,
intent(out) :: integral, abserr
8334 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8335 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8336 integer(IK) ,
intent(out) :: neval
8337 integer(IK) ,
intent(out) :: nint
8343 module function QAGD_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8345 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK3
8348 procedure(
real(RKC)) :: getFunc
8349 real(RKC) ,
intent(in) :: lb
8350 type(pinf_type) ,
intent(in) :: ub
8351 real(RKC) ,
intent(in) :: abstol
8352 real(RKC) ,
intent(in) :: reltol
8353 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8354 real(RKC) ,
intent(out) :: integral, abserr
8355 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8356 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8357 integer(IK) ,
intent(out) :: neval
8358 integer(IK) ,
intent(out) :: nint
8364 module function QAGD_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8366 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK2
8369 procedure(
real(RKC)) :: getFunc
8370 real(RKC) ,
intent(in) :: lb
8371 type(pinf_type) ,
intent(in) :: ub
8372 real(RKC) ,
intent(in) :: abstol
8373 real(RKC) ,
intent(in) :: reltol
8374 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8375 real(RKC) ,
intent(out) :: integral, abserr
8376 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8377 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8378 integer(IK) ,
intent(out) :: neval
8379 integer(IK) ,
intent(out) :: nint
8385 module function QAGD_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8387 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK1
8390 procedure(
real(RKC)) :: getFunc
8391 real(RKC) ,
intent(in) :: lb
8392 type(pinf_type) ,
intent(in) :: ub
8393 real(RKC) ,
intent(in) :: abstol
8394 real(RKC) ,
intent(in) :: reltol
8395 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8396 real(RKC) ,
intent(out) :: integral, abserr
8397 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8398 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8399 integer(IK) ,
intent(out) :: neval
8400 integer(IK) ,
intent(out) :: nint
8408 module function QAGD_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8410 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK5
8413 procedure(
real(RKC)) :: getFunc
8414 type(ninf_type) ,
intent(in) :: lb
8415 real(RKC) ,
intent(in) :: ub
8416 real(RKC) ,
intent(in) :: abstol
8417 real(RKC) ,
intent(in) :: reltol
8418 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8419 real(RKC) ,
intent(out) :: integral, abserr
8420 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8421 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8422 integer(IK) ,
intent(out) :: neval
8423 integer(IK) ,
intent(out) :: nint
8429 module function QAGD_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8431 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK4
8434 procedure(
real(RKC)) :: getFunc
8435 type(ninf_type) ,
intent(in) :: lb
8436 real(RKC) ,
intent(in) :: ub
8437 real(RKC) ,
intent(in) :: abstol
8438 real(RKC) ,
intent(in) :: reltol
8439 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8440 real(RKC) ,
intent(out) :: integral, abserr
8441 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8442 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8443 integer(IK) ,
intent(out) :: neval
8444 integer(IK) ,
intent(out) :: nint
8450 module function QAGD_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK3
8455 procedure(
real(RKC)) :: getFunc
8456 type(ninf_type) ,
intent(in) :: lb
8457 real(RKC) ,
intent(in) :: ub
8458 real(RKC) ,
intent(in) :: abstol
8459 real(RKC) ,
intent(in) :: reltol
8460 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8461 real(RKC) ,
intent(out) :: integral, abserr
8462 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8463 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8464 integer(IK) ,
intent(out) :: neval
8465 integer(IK) ,
intent(out) :: nint
8471 module function QAGD_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8473 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK2
8476 procedure(
real(RKC)) :: getFunc
8477 type(ninf_type) ,
intent(in) :: lb
8478 real(RKC) ,
intent(in) :: ub
8479 real(RKC) ,
intent(in) :: abstol
8480 real(RKC) ,
intent(in) :: reltol
8481 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8482 real(RKC) ,
intent(out) :: integral, abserr
8483 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8484 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8485 integer(IK) ,
intent(out) :: neval
8486 integer(IK) ,
intent(out) :: nint
8492 module function QAGD_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK1
8497 procedure(
real(RKC)) :: getFunc
8498 type(ninf_type) ,
intent(in) :: lb
8499 real(RKC) ,
intent(in) :: ub
8500 real(RKC) ,
intent(in) :: abstol
8501 real(RKC) ,
intent(in) :: reltol
8502 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8503 real(RKC) ,
intent(out) :: integral, abserr
8504 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8505 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8506 integer(IK) ,
intent(out) :: neval
8507 integer(IK) ,
intent(out) :: nint
8515 module function QAGD_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8517 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK5
8520 procedure(
real(RKC)) :: getFunc
8521 type(ninf_type) ,
intent(in) :: lb
8522 type(pinf_type) ,
intent(in) :: ub
8523 real(RKC) ,
intent(in) :: abstol
8524 real(RKC) ,
intent(in) :: reltol
8525 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8526 real(RKC) ,
intent(out) :: integral, abserr
8527 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8528 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8529 integer(IK) ,
intent(out) :: neval
8530 integer(IK) ,
intent(out) :: nint
8536 module function QAGD_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8538 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK4
8541 procedure(
real(RKC)) :: getFunc
8542 type(ninf_type) ,
intent(in) :: lb
8543 type(pinf_type) ,
intent(in) :: ub
8544 real(RKC) ,
intent(in) :: abstol
8545 real(RKC) ,
intent(in) :: reltol
8546 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8547 real(RKC) ,
intent(out) :: integral, abserr
8548 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8549 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8550 integer(IK) ,
intent(out) :: neval
8551 integer(IK) ,
intent(out) :: nint
8557 module function QAGD_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8559 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK3
8562 procedure(
real(RKC)) :: getFunc
8563 type(ninf_type) ,
intent(in) :: lb
8564 type(pinf_type) ,
intent(in) :: ub
8565 real(RKC) ,
intent(in) :: abstol
8566 real(RKC) ,
intent(in) :: reltol
8567 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8568 real(RKC) ,
intent(out) :: integral, abserr
8569 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8570 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8571 integer(IK) ,
intent(out) :: neval
8572 integer(IK) ,
intent(out) :: nint
8578 module function QAGD_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK2
8583 procedure(
real(RKC)) :: getFunc
8584 type(ninf_type) ,
intent(in) :: lb
8585 type(pinf_type) ,
intent(in) :: ub
8586 real(RKC) ,
intent(in) :: abstol
8587 real(RKC) ,
intent(in) :: reltol
8588 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8589 real(RKC) ,
intent(out) :: integral, abserr
8590 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8591 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8592 integer(IK) ,
intent(out) :: neval
8593 integer(IK) ,
intent(out) :: nint
8599 module function QAGD_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK1
8604 procedure(
real(RKC)) :: getFunc
8605 type(ninf_type) ,
intent(in) :: lb
8606 type(pinf_type) ,
intent(in) :: ub
8607 real(RKC) ,
intent(in) :: abstol
8608 real(RKC) ,
intent(in) :: reltol
8609 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8610 real(RKC) ,
intent(out) :: integral, abserr
8611 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8612 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8613 integer(IK) ,
intent(out) :: neval
8614 integer(IK) ,
intent(out) :: nint
8632 module function QAGS_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK5
8637 procedure(
real(RKC)) :: getFunc
8638 real(RKC) ,
intent(in) :: lb
8639 real(RKC) ,
intent(in) :: ub
8640 real(RKC) ,
intent(in) :: abstol
8641 real(RKC) ,
intent(in) :: reltol
8642 type(GK15_type) ,
intent(in) :: qrule
8643 type(weps_type) ,
intent(in) :: help
8644 real(RKC) ,
intent(out) :: integral, abserr
8645 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8646 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8647 integer(IK) ,
intent(out) :: neval
8648 integer(IK) ,
intent(out) :: nint
8654 module function QAGS_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK4
8659 procedure(
real(RKC)) :: getFunc
8660 real(RKC) ,
intent(in) :: lb
8661 real(RKC) ,
intent(in) :: ub
8662 real(RKC) ,
intent(in) :: abstol
8663 real(RKC) ,
intent(in) :: reltol
8664 type(GK15_type) ,
intent(in) :: qrule
8665 type(weps_type) ,
intent(in) :: help
8666 real(RKC) ,
intent(out) :: integral, abserr
8667 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8668 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8669 integer(IK) ,
intent(out) :: neval
8670 integer(IK) ,
intent(out) :: nint
8676 module function QAGS_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8678 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK3
8681 procedure(
real(RKC)) :: getFunc
8682 real(RKC) ,
intent(in) :: lb
8683 real(RKC) ,
intent(in) :: ub
8684 real(RKC) ,
intent(in) :: abstol
8685 real(RKC) ,
intent(in) :: reltol
8686 type(GK15_type) ,
intent(in) :: qrule
8687 type(weps_type) ,
intent(in) :: help
8688 real(RKC) ,
intent(out) :: integral, abserr
8689 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8690 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8691 integer(IK) ,
intent(out) :: neval
8692 integer(IK) ,
intent(out) :: nint
8698 module function QAGS_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8700 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK2
8703 procedure(
real(RKC)) :: getFunc
8704 real(RKC) ,
intent(in) :: lb
8705 real(RKC) ,
intent(in) :: ub
8706 real(RKC) ,
intent(in) :: abstol
8707 real(RKC) ,
intent(in) :: reltol
8708 type(GK15_type) ,
intent(in) :: qrule
8709 type(weps_type) ,
intent(in) :: help
8710 real(RKC) ,
intent(out) :: integral, abserr
8711 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8712 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8713 integer(IK) ,
intent(out) :: neval
8714 integer(IK) ,
intent(out) :: nint
8720 module function QAGS_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8722 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK1
8725 procedure(
real(RKC)) :: getFunc
8726 real(RKC) ,
intent(in) :: lb
8727 real(RKC) ,
intent(in) :: ub
8728 real(RKC) ,
intent(in) :: abstol
8729 real(RKC) ,
intent(in) :: reltol
8730 type(GK15_type) ,
intent(in) :: qrule
8731 type(weps_type) ,
intent(in) :: help
8732 real(RKC) ,
intent(out) :: integral, abserr
8733 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8734 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8735 integer(IK) ,
intent(out) :: neval
8736 integer(IK) ,
intent(out) :: nint
8744 module function QAGS_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK5
8749 procedure(
real(RKC)) :: getFunc
8750 real(RKC) ,
intent(in) :: lb
8751 type(pinf_type) ,
intent(in) :: ub
8752 real(RKC) ,
intent(in) :: abstol
8753 real(RKC) ,
intent(in) :: reltol
8754 type(GK15_type) ,
intent(in) :: qrule
8755 type(weps_type) ,
intent(in) :: help
8756 real(RKC) ,
intent(out) :: integral, abserr
8757 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8758 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8759 integer(IK) ,
intent(out) :: neval
8760 integer(IK) ,
intent(out) :: nint
8766 module function QAGS_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK4
8771 procedure(
real(RKC)) :: getFunc
8772 real(RKC) ,
intent(in) :: lb
8773 type(pinf_type) ,
intent(in) :: ub
8774 real(RKC) ,
intent(in) :: abstol
8775 real(RKC) ,
intent(in) :: reltol
8776 type(GK15_type) ,
intent(in) :: qrule
8777 type(weps_type) ,
intent(in) :: help
8778 real(RKC) ,
intent(out) :: integral, abserr
8779 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8780 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8781 integer(IK) ,
intent(out) :: neval
8782 integer(IK) ,
intent(out) :: nint
8788 module function QAGS_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8790 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK3
8793 procedure(
real(RKC)) :: getFunc
8794 real(RKC) ,
intent(in) :: lb
8795 type(pinf_type) ,
intent(in) :: ub
8796 real(RKC) ,
intent(in) :: abstol
8797 real(RKC) ,
intent(in) :: reltol
8798 type(GK15_type) ,
intent(in) :: qrule
8799 type(weps_type) ,
intent(in) :: help
8800 real(RKC) ,
intent(out) :: integral, abserr
8801 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8802 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8803 integer(IK) ,
intent(out) :: neval
8804 integer(IK) ,
intent(out) :: nint
8810 module function QAGS_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8812 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK2
8815 procedure(
real(RKC)) :: getFunc
8816 real(RKC) ,
intent(in) :: lb
8817 type(pinf_type) ,
intent(in) :: ub
8818 real(RKC) ,
intent(in) :: abstol
8819 real(RKC) ,
intent(in) :: reltol
8820 type(GK15_type) ,
intent(in) :: qrule
8821 type(weps_type) ,
intent(in) :: help
8822 real(RKC) ,
intent(out) :: integral, abserr
8823 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8824 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8825 integer(IK) ,
intent(out) :: neval
8826 integer(IK) ,
intent(out) :: nint
8832 module function QAGS_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK1
8837 procedure(
real(RKC)) :: getFunc
8838 real(RKC) ,
intent(in) :: lb
8839 type(pinf_type) ,
intent(in) :: ub
8840 real(RKC) ,
intent(in) :: abstol
8841 real(RKC) ,
intent(in) :: reltol
8842 type(GK15_type) ,
intent(in) :: qrule
8843 type(weps_type) ,
intent(in) :: help
8844 real(RKC) ,
intent(out) :: integral, abserr
8845 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8846 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8847 integer(IK) ,
intent(out) :: neval
8848 integer(IK) ,
intent(out) :: nint
8856 module function QAGS_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK5
8861 procedure(
real(RKC)) :: getFunc
8862 type(ninf_type) ,
intent(in) :: lb
8863 real(RKC) ,
intent(in) :: ub
8864 real(RKC) ,
intent(in) :: abstol
8865 real(RKC) ,
intent(in) :: reltol
8866 type(GK15_type) ,
intent(in) :: qrule
8867 type(weps_type) ,
intent(in) :: help
8868 real(RKC) ,
intent(out) :: integral, abserr
8869 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8870 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8871 integer(IK) ,
intent(out) :: neval
8872 integer(IK) ,
intent(out) :: nint
8878 module function QAGS_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK4
8883 procedure(
real(RKC)) :: getFunc
8884 type(ninf_type) ,
intent(in) :: lb
8885 real(RKC) ,
intent(in) :: ub
8886 real(RKC) ,
intent(in) :: abstol
8887 real(RKC) ,
intent(in) :: reltol
8888 type(GK15_type) ,
intent(in) :: qrule
8889 type(weps_type) ,
intent(in) :: help
8890 real(RKC) ,
intent(out) :: integral, abserr
8891 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8892 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8893 integer(IK) ,
intent(out) :: neval
8894 integer(IK) ,
intent(out) :: nint
8900 module function QAGS_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8902 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK3
8905 procedure(
real(RKC)) :: getFunc
8906 type(ninf_type) ,
intent(in) :: lb
8907 real(RKC) ,
intent(in) :: ub
8908 real(RKC) ,
intent(in) :: abstol
8909 real(RKC) ,
intent(in) :: reltol
8910 type(GK15_type) ,
intent(in) :: qrule
8911 type(weps_type) ,
intent(in) :: help
8912 real(RKC) ,
intent(out) :: integral, abserr
8913 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8914 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8915 integer(IK) ,
intent(out) :: neval
8916 integer(IK) ,
intent(out) :: nint
8922 module function QAGS_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8924 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK2
8927 procedure(
real(RKC)) :: getFunc
8928 type(ninf_type) ,
intent(in) :: lb
8929 real(RKC) ,
intent(in) :: ub
8930 real(RKC) ,
intent(in) :: abstol
8931 real(RKC) ,
intent(in) :: reltol
8932 type(GK15_type) ,
intent(in) :: qrule
8933 type(weps_type) ,
intent(in) :: help
8934 real(RKC) ,
intent(out) :: integral, abserr
8935 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8936 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8937 integer(IK) ,
intent(out) :: neval
8938 integer(IK) ,
intent(out) :: nint
8944 module function QAGS_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK1
8949 procedure(
real(RKC)) :: getFunc
8950 type(ninf_type) ,
intent(in) :: lb
8951 real(RKC) ,
intent(in) :: ub
8952 real(RKC) ,
intent(in) :: abstol
8953 real(RKC) ,
intent(in) :: reltol
8954 type(GK15_type) ,
intent(in) :: qrule
8955 type(weps_type) ,
intent(in) :: help
8956 real(RKC) ,
intent(out) :: integral, abserr
8957 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8958 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8959 integer(IK) ,
intent(out) :: neval
8960 integer(IK) ,
intent(out) :: nint
8968 module function QAGS_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK5
8973 procedure(
real(RKC)) :: getFunc
8974 type(ninf_type) ,
intent(in) :: lb
8975 type(pinf_type) ,
intent(in) :: ub
8976 real(RKC) ,
intent(in) :: abstol
8977 real(RKC) ,
intent(in) :: reltol
8978 type(GK15_type) ,
intent(in) :: qrule
8979 type(weps_type) ,
intent(in) :: help
8980 real(RKC) ,
intent(out) :: integral, abserr
8981 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8982 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8983 integer(IK) ,
intent(out) :: neval
8984 integer(IK) ,
intent(out) :: nint
8990 module function QAGS_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8992 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK4
8995 procedure(
real(RKC)) :: getFunc
8996 type(ninf_type) ,
intent(in) :: lb
8997 type(pinf_type) ,
intent(in) :: ub
8998 real(RKC) ,
intent(in) :: abstol
8999 real(RKC) ,
intent(in) :: reltol
9000 type(GK15_type) ,
intent(in) :: qrule
9001 type(weps_type) ,
intent(in) :: help
9002 real(RKC) ,
intent(out) :: integral, abserr
9003 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9004 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9005 integer(IK) ,
intent(out) :: neval
9006 integer(IK) ,
intent(out) :: nint
9012 module function QAGS_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK3
9017 procedure(
real(RKC)) :: getFunc
9018 type(ninf_type) ,
intent(in) :: lb
9019 type(pinf_type) ,
intent(in) :: ub
9020 real(RKC) ,
intent(in) :: abstol
9021 real(RKC) ,
intent(in) :: reltol
9022 type(GK15_type) ,
intent(in) :: qrule
9023 type(weps_type) ,
intent(in) :: help
9024 real(RKC) ,
intent(out) :: integral, abserr
9025 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9026 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9027 integer(IK) ,
intent(out) :: neval
9028 integer(IK) ,
intent(out) :: nint
9034 module function QAGS_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9036 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK2
9039 procedure(
real(RKC)) :: getFunc
9040 type(ninf_type) ,
intent(in) :: lb
9041 type(pinf_type) ,
intent(in) :: ub
9042 real(RKC) ,
intent(in) :: abstol
9043 real(RKC) ,
intent(in) :: reltol
9044 type(GK15_type) ,
intent(in) :: qrule
9045 type(weps_type) ,
intent(in) :: help
9046 real(RKC) ,
intent(out) :: integral, abserr
9047 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9048 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9049 integer(IK) ,
intent(out) :: neval
9050 integer(IK) ,
intent(out) :: nint
9056 module function QAGS_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK1
9061 procedure(
real(RKC)) :: getFunc
9062 type(ninf_type) ,
intent(in) :: lb
9063 type(pinf_type) ,
intent(in) :: ub
9064 real(RKC) ,
intent(in) :: abstol
9065 real(RKC) ,
intent(in) :: reltol
9066 type(GK15_type) ,
intent(in) :: qrule
9067 type(weps_type) ,
intent(in) :: help
9068 real(RKC) ,
intent(out) :: integral, abserr
9069 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9070 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9071 integer(IK) ,
intent(out) :: neval
9072 integer(IK) ,
intent(out) :: nint
9088 module function QAGS_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9090 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK5
9093 procedure(
real(RKC)) :: getFunc
9094 real(RKC) ,
intent(in) :: lb
9095 real(RKC) ,
intent(in) :: ub
9096 real(RKC) ,
intent(in) :: abstol
9097 real(RKC) ,
intent(in) :: reltol
9098 type(GK21_type) ,
intent(in) :: qrule
9099 type(weps_type) ,
intent(in) :: help
9100 real(RKC) ,
intent(out) :: integral, abserr
9101 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9102 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9103 integer(IK) ,
intent(out) :: neval
9104 integer(IK) ,
intent(out) :: nint
9110 module function QAGS_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9112 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK4
9115 procedure(
real(RKC)) :: getFunc
9116 real(RKC) ,
intent(in) :: lb
9117 real(RKC) ,
intent(in) :: ub
9118 real(RKC) ,
intent(in) :: abstol
9119 real(RKC) ,
intent(in) :: reltol
9120 type(GK21_type) ,
intent(in) :: qrule
9121 type(weps_type) ,
intent(in) :: help
9122 real(RKC) ,
intent(out) :: integral, abserr
9123 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9124 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9125 integer(IK) ,
intent(out) :: neval
9126 integer(IK) ,
intent(out) :: nint
9132 module function QAGS_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9134 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK3
9137 procedure(
real(RKC)) :: getFunc
9138 real(RKC) ,
intent(in) :: lb
9139 real(RKC) ,
intent(in) :: ub
9140 real(RKC) ,
intent(in) :: abstol
9141 real(RKC) ,
intent(in) :: reltol
9142 type(GK21_type) ,
intent(in) :: qrule
9143 type(weps_type) ,
intent(in) :: help
9144 real(RKC) ,
intent(out) :: integral, abserr
9145 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9146 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9147 integer(IK) ,
intent(out) :: neval
9148 integer(IK) ,
intent(out) :: nint
9154 module function QAGS_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9156 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK2
9159 procedure(
real(RKC)) :: getFunc
9160 real(RKC) ,
intent(in) :: lb
9161 real(RKC) ,
intent(in) :: ub
9162 real(RKC) ,
intent(in) :: abstol
9163 real(RKC) ,
intent(in) :: reltol
9164 type(GK21_type) ,
intent(in) :: qrule
9165 type(weps_type) ,
intent(in) :: help
9166 real(RKC) ,
intent(out) :: integral, abserr
9167 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9168 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9169 integer(IK) ,
intent(out) :: neval
9170 integer(IK) ,
intent(out) :: nint
9176 module function QAGS_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9178 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK1
9181 procedure(
real(RKC)) :: getFunc
9182 real(RKC) ,
intent(in) :: lb
9183 real(RKC) ,
intent(in) :: ub
9184 real(RKC) ,
intent(in) :: abstol
9185 real(RKC) ,
intent(in) :: reltol
9186 type(GK21_type) ,
intent(in) :: qrule
9187 type(weps_type) ,
intent(in) :: help
9188 real(RKC) ,
intent(out) :: integral, abserr
9189 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9190 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9191 integer(IK) ,
intent(out) :: neval
9192 integer(IK) ,
intent(out) :: nint
9200 module function QAGS_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK5
9205 procedure(
real(RKC)) :: getFunc
9206 real(RKC) ,
intent(in) :: lb
9207 type(pinf_type) ,
intent(in) :: ub
9208 real(RKC) ,
intent(in) :: abstol
9209 real(RKC) ,
intent(in) :: reltol
9210 type(GK21_type) ,
intent(in) :: qrule
9211 type(weps_type) ,
intent(in) :: help
9212 real(RKC) ,
intent(out) :: integral, abserr
9213 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9214 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9215 integer(IK) ,
intent(out) :: neval
9216 integer(IK) ,
intent(out) :: nint
9222 module function QAGS_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK4
9227 procedure(
real(RKC)) :: getFunc
9228 real(RKC) ,
intent(in) :: lb
9229 type(pinf_type) ,
intent(in) :: ub
9230 real(RKC) ,
intent(in) :: abstol
9231 real(RKC) ,
intent(in) :: reltol
9232 type(GK21_type) ,
intent(in) :: qrule
9233 type(weps_type) ,
intent(in) :: help
9234 real(RKC) ,
intent(out) :: integral, abserr
9235 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9236 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9237 integer(IK) ,
intent(out) :: neval
9238 integer(IK) ,
intent(out) :: nint
9244 module function QAGS_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9246 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK3
9249 procedure(
real(RKC)) :: getFunc
9250 real(RKC) ,
intent(in) :: lb
9251 type(pinf_type) ,
intent(in) :: ub
9252 real(RKC) ,
intent(in) :: abstol
9253 real(RKC) ,
intent(in) :: reltol
9254 type(GK21_type) ,
intent(in) :: qrule
9255 type(weps_type) ,
intent(in) :: help
9256 real(RKC) ,
intent(out) :: integral, abserr
9257 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9258 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9259 integer(IK) ,
intent(out) :: neval
9260 integer(IK) ,
intent(out) :: nint
9266 module function QAGS_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9268 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK2
9271 procedure(
real(RKC)) :: getFunc
9272 real(RKC) ,
intent(in) :: lb
9273 type(pinf_type) ,
intent(in) :: ub
9274 real(RKC) ,
intent(in) :: abstol
9275 real(RKC) ,
intent(in) :: reltol
9276 type(GK21_type) ,
intent(in) :: qrule
9277 type(weps_type) ,
intent(in) :: help
9278 real(RKC) ,
intent(out) :: integral, abserr
9279 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9280 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9281 integer(IK) ,
intent(out) :: neval
9282 integer(IK) ,
intent(out) :: nint
9288 module function QAGS_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9290 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK1
9293 procedure(
real(RKC)) :: getFunc
9294 real(RKC) ,
intent(in) :: lb
9295 type(pinf_type) ,
intent(in) :: ub
9296 real(RKC) ,
intent(in) :: abstol
9297 real(RKC) ,
intent(in) :: reltol
9298 type(GK21_type) ,
intent(in) :: qrule
9299 type(weps_type) ,
intent(in) :: help
9300 real(RKC) ,
intent(out) :: integral, abserr
9301 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9302 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9303 integer(IK) ,
intent(out) :: neval
9304 integer(IK) ,
intent(out) :: nint
9312 module function QAGS_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK5
9317 procedure(
real(RKC)) :: getFunc
9318 type(ninf_type) ,
intent(in) :: lb
9319 real(RKC) ,
intent(in) :: ub
9320 real(RKC) ,
intent(in) :: abstol
9321 real(RKC) ,
intent(in) :: reltol
9322 type(GK21_type) ,
intent(in) :: qrule
9323 type(weps_type) ,
intent(in) :: help
9324 real(RKC) ,
intent(out) :: integral, abserr
9325 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9326 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9327 integer(IK) ,
intent(out) :: neval
9328 integer(IK) ,
intent(out) :: nint
9334 module function QAGS_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK4
9339 procedure(
real(RKC)) :: getFunc
9340 type(ninf_type) ,
intent(in) :: lb
9341 real(RKC) ,
intent(in) :: ub
9342 real(RKC) ,
intent(in) :: abstol
9343 real(RKC) ,
intent(in) :: reltol
9344 type(GK21_type) ,
intent(in) :: qrule
9345 type(weps_type) ,
intent(in) :: help
9346 real(RKC) ,
intent(out) :: integral, abserr
9347 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9348 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9349 integer(IK) ,
intent(out) :: neval
9350 integer(IK) ,
intent(out) :: nint
9356 module function QAGS_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK3
9361 procedure(
real(RKC)) :: getFunc
9362 type(ninf_type) ,
intent(in) :: lb
9363 real(RKC) ,
intent(in) :: ub
9364 real(RKC) ,
intent(in) :: abstol
9365 real(RKC) ,
intent(in) :: reltol
9366 type(GK21_type) ,
intent(in) :: qrule
9367 type(weps_type) ,
intent(in) :: help
9368 real(RKC) ,
intent(out) :: integral, abserr
9369 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9370 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9371 integer(IK) ,
intent(out) :: neval
9372 integer(IK) ,
intent(out) :: nint
9378 module function QAGS_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9380 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK2
9383 procedure(
real(RKC)) :: getFunc
9384 type(ninf_type) ,
intent(in) :: lb
9385 real(RKC) ,
intent(in) :: ub
9386 real(RKC) ,
intent(in) :: abstol
9387 real(RKC) ,
intent(in) :: reltol
9388 type(GK21_type) ,
intent(in) :: qrule
9389 type(weps_type) ,
intent(in) :: help
9390 real(RKC) ,
intent(out) :: integral, abserr
9391 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9392 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9393 integer(IK) ,
intent(out) :: neval
9394 integer(IK) ,
intent(out) :: nint
9400 module function QAGS_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9402 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK1
9405 procedure(
real(RKC)) :: getFunc
9406 type(ninf_type) ,
intent(in) :: lb
9407 real(RKC) ,
intent(in) :: ub
9408 real(RKC) ,
intent(in) :: abstol
9409 real(RKC) ,
intent(in) :: reltol
9410 type(GK21_type) ,
intent(in) :: qrule
9411 type(weps_type) ,
intent(in) :: help
9412 real(RKC) ,
intent(out) :: integral, abserr
9413 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9414 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9415 integer(IK) ,
intent(out) :: neval
9416 integer(IK) ,
intent(out) :: nint
9424 module function QAGS_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK5
9429 procedure(
real(RKC)) :: getFunc
9430 type(ninf_type) ,
intent(in) :: lb
9431 type(pinf_type) ,
intent(in) :: ub
9432 real(RKC) ,
intent(in) :: abstol
9433 real(RKC) ,
intent(in) :: reltol
9434 type(GK21_type) ,
intent(in) :: qrule
9435 type(weps_type) ,
intent(in) :: help
9436 real(RKC) ,
intent(out) :: integral, abserr
9437 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9438 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9439 integer(IK) ,
intent(out) :: neval
9440 integer(IK) ,
intent(out) :: nint
9446 module function QAGS_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9448 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK4
9451 procedure(
real(RKC)) :: getFunc
9452 type(ninf_type) ,
intent(in) :: lb
9453 type(pinf_type) ,
intent(in) :: ub
9454 real(RKC) ,
intent(in) :: abstol
9455 real(RKC) ,
intent(in) :: reltol
9456 type(GK21_type) ,
intent(in) :: qrule
9457 type(weps_type) ,
intent(in) :: help
9458 real(RKC) ,
intent(out) :: integral, abserr
9459 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9460 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9461 integer(IK) ,
intent(out) :: neval
9462 integer(IK) ,
intent(out) :: nint
9468 module function QAGS_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9470 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK3
9473 procedure(
real(RKC)) :: getFunc
9474 type(ninf_type) ,
intent(in) :: lb
9475 type(pinf_type) ,
intent(in) :: ub
9476 real(RKC) ,
intent(in) :: abstol
9477 real(RKC) ,
intent(in) :: reltol
9478 type(GK21_type) ,
intent(in) :: qrule
9479 type(weps_type) ,
intent(in) :: help
9480 real(RKC) ,
intent(out) :: integral, abserr
9481 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9482 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9483 integer(IK) ,
intent(out) :: neval
9484 integer(IK) ,
intent(out) :: nint
9490 module function QAGS_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK2
9495 procedure(
real(RKC)) :: getFunc
9496 type(ninf_type) ,
intent(in) :: lb
9497 type(pinf_type) ,
intent(in) :: ub
9498 real(RKC) ,
intent(in) :: abstol
9499 real(RKC) ,
intent(in) :: reltol
9500 type(GK21_type) ,
intent(in) :: qrule
9501 type(weps_type) ,
intent(in) :: help
9502 real(RKC) ,
intent(out) :: integral, abserr
9503 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9504 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9505 integer(IK) ,
intent(out) :: neval
9506 integer(IK) ,
intent(out) :: nint
9512 module function QAGS_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9514 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK1
9517 procedure(
real(RKC)) :: getFunc
9518 type(ninf_type) ,
intent(in) :: lb
9519 type(pinf_type) ,
intent(in) :: ub
9520 real(RKC) ,
intent(in) :: abstol
9521 real(RKC) ,
intent(in) :: reltol
9522 type(GK21_type) ,
intent(in) :: qrule
9523 type(weps_type) ,
intent(in) :: help
9524 real(RKC) ,
intent(out) :: integral, abserr
9525 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9526 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9527 integer(IK) ,
intent(out) :: neval
9528 integer(IK) ,
intent(out) :: nint
9544 module function QAGS_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9546 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK5
9549 procedure(
real(RKC)) :: getFunc
9550 real(RKC) ,
intent(in) :: lb
9551 real(RKC) ,
intent(in) :: ub
9552 real(RKC) ,
intent(in) :: abstol
9553 real(RKC) ,
intent(in) :: reltol
9554 type(GK31_type) ,
intent(in) :: qrule
9555 type(weps_type) ,
intent(in) :: help
9556 real(RKC) ,
intent(out) :: integral, abserr
9557 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9558 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9559 integer(IK) ,
intent(out) :: neval
9560 integer(IK) ,
intent(out) :: nint
9566 module function QAGS_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9568 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK4
9571 procedure(
real(RKC)) :: getFunc
9572 real(RKC) ,
intent(in) :: lb
9573 real(RKC) ,
intent(in) :: ub
9574 real(RKC) ,
intent(in) :: abstol
9575 real(RKC) ,
intent(in) :: reltol
9576 type(GK31_type) ,
intent(in) :: qrule
9577 type(weps_type) ,
intent(in) :: help
9578 real(RKC) ,
intent(out) :: integral, abserr
9579 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9580 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9581 integer(IK) ,
intent(out) :: neval
9582 integer(IK) ,
intent(out) :: nint
9588 module function QAGS_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9590 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK3
9593 procedure(
real(RKC)) :: getFunc
9594 real(RKC) ,
intent(in) :: lb
9595 real(RKC) ,
intent(in) :: ub
9596 real(RKC) ,
intent(in) :: abstol
9597 real(RKC) ,
intent(in) :: reltol
9598 type(GK31_type) ,
intent(in) :: qrule
9599 type(weps_type) ,
intent(in) :: help
9600 real(RKC) ,
intent(out) :: integral, abserr
9601 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9602 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9603 integer(IK) ,
intent(out) :: neval
9604 integer(IK) ,
intent(out) :: nint
9610 module function QAGS_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9612 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK2
9615 procedure(
real(RKC)) :: getFunc
9616 real(RKC) ,
intent(in) :: lb
9617 real(RKC) ,
intent(in) :: ub
9618 real(RKC) ,
intent(in) :: abstol
9619 real(RKC) ,
intent(in) :: reltol
9620 type(GK31_type) ,
intent(in) :: qrule
9621 type(weps_type) ,
intent(in) :: help
9622 real(RKC) ,
intent(out) :: integral, abserr
9623 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9624 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9625 integer(IK) ,
intent(out) :: neval
9626 integer(IK) ,
intent(out) :: nint
9632 module function QAGS_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK1
9637 procedure(
real(RKC)) :: getFunc
9638 real(RKC) ,
intent(in) :: lb
9639 real(RKC) ,
intent(in) :: ub
9640 real(RKC) ,
intent(in) :: abstol
9641 real(RKC) ,
intent(in) :: reltol
9642 type(GK31_type) ,
intent(in) :: qrule
9643 type(weps_type) ,
intent(in) :: help
9644 real(RKC) ,
intent(out) :: integral, abserr
9645 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9646 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9647 integer(IK) ,
intent(out) :: neval
9648 integer(IK) ,
intent(out) :: nint
9656 module function QAGS_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK5
9661 procedure(
real(RKC)) :: getFunc
9662 real(RKC) ,
intent(in) :: lb
9663 type(pinf_type) ,
intent(in) :: ub
9664 real(RKC) ,
intent(in) :: abstol
9665 real(RKC) ,
intent(in) :: reltol
9666 type(GK31_type) ,
intent(in) :: qrule
9667 type(weps_type) ,
intent(in) :: help
9668 real(RKC) ,
intent(out) :: integral, abserr
9669 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9670 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9671 integer(IK) ,
intent(out) :: neval
9672 integer(IK) ,
intent(out) :: nint
9678 module function QAGS_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK4
9683 procedure(
real(RKC)) :: getFunc
9684 real(RKC) ,
intent(in) :: lb
9685 type(pinf_type) ,
intent(in) :: ub
9686 real(RKC) ,
intent(in) :: abstol
9687 real(RKC) ,
intent(in) :: reltol
9688 type(GK31_type) ,
intent(in) :: qrule
9689 type(weps_type) ,
intent(in) :: help
9690 real(RKC) ,
intent(out) :: integral, abserr
9691 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9692 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9693 integer(IK) ,
intent(out) :: neval
9694 integer(IK) ,
intent(out) :: nint
9700 module function QAGS_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK3
9705 procedure(
real(RKC)) :: getFunc
9706 real(RKC) ,
intent(in) :: lb
9707 type(pinf_type) ,
intent(in) :: ub
9708 real(RKC) ,
intent(in) :: abstol
9709 real(RKC) ,
intent(in) :: reltol
9710 type(GK31_type) ,
intent(in) :: qrule
9711 type(weps_type) ,
intent(in) :: help
9712 real(RKC) ,
intent(out) :: integral, abserr
9713 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9714 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9715 integer(IK) ,
intent(out) :: neval
9716 integer(IK) ,
intent(out) :: nint
9722 module function QAGS_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9724 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK2
9727 procedure(
real(RKC)) :: getFunc
9728 real(RKC) ,
intent(in) :: lb
9729 type(pinf_type) ,
intent(in) :: ub
9730 real(RKC) ,
intent(in) :: abstol
9731 real(RKC) ,
intent(in) :: reltol
9732 type(GK31_type) ,
intent(in) :: qrule
9733 type(weps_type) ,
intent(in) :: help
9734 real(RKC) ,
intent(out) :: integral, abserr
9735 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9736 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9737 integer(IK) ,
intent(out) :: neval
9738 integer(IK) ,
intent(out) :: nint
9744 module function QAGS_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK1
9749 procedure(
real(RKC)) :: getFunc
9750 real(RKC) ,
intent(in) :: lb
9751 type(pinf_type) ,
intent(in) :: ub
9752 real(RKC) ,
intent(in) :: abstol
9753 real(RKC) ,
intent(in) :: reltol
9754 type(GK31_type) ,
intent(in) :: qrule
9755 type(weps_type) ,
intent(in) :: help
9756 real(RKC) ,
intent(out) :: integral, abserr
9757 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9758 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9759 integer(IK) ,
intent(out) :: neval
9760 integer(IK) ,
intent(out) :: nint
9768 module function QAGS_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK5
9773 procedure(
real(RKC)) :: getFunc
9774 type(ninf_type) ,
intent(in) :: lb
9775 real(RKC) ,
intent(in) :: ub
9776 real(RKC) ,
intent(in) :: abstol
9777 real(RKC) ,
intent(in) :: reltol
9778 type(GK31_type) ,
intent(in) :: qrule
9779 type(weps_type) ,
intent(in) :: help
9780 real(RKC) ,
intent(out) :: integral, abserr
9781 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9782 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9783 integer(IK) ,
intent(out) :: neval
9784 integer(IK) ,
intent(out) :: nint
9790 module function QAGS_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK4
9795 procedure(
real(RKC)) :: getFunc
9796 type(ninf_type) ,
intent(in) :: lb
9797 real(RKC) ,
intent(in) :: ub
9798 real(RKC) ,
intent(in) :: abstol
9799 real(RKC) ,
intent(in) :: reltol
9800 type(GK31_type) ,
intent(in) :: qrule
9801 type(weps_type) ,
intent(in) :: help
9802 real(RKC) ,
intent(out) :: integral, abserr
9803 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9804 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9805 integer(IK) ,
intent(out) :: neval
9806 integer(IK) ,
intent(out) :: nint
9812 module function QAGS_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK3
9817 procedure(
real(RKC)) :: getFunc
9818 type(ninf_type) ,
intent(in) :: lb
9819 real(RKC) ,
intent(in) :: ub
9820 real(RKC) ,
intent(in) :: abstol
9821 real(RKC) ,
intent(in) :: reltol
9822 type(GK31_type) ,
intent(in) :: qrule
9823 type(weps_type) ,
intent(in) :: help
9824 real(RKC) ,
intent(out) :: integral, abserr
9825 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9826 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9827 integer(IK) ,
intent(out) :: neval
9828 integer(IK) ,
intent(out) :: nint
9834 module function QAGS_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK2
9839 procedure(
real(RKC)) :: getFunc
9840 type(ninf_type) ,
intent(in) :: lb
9841 real(RKC) ,
intent(in) :: ub
9842 real(RKC) ,
intent(in) :: abstol
9843 real(RKC) ,
intent(in) :: reltol
9844 type(GK31_type) ,
intent(in) :: qrule
9845 type(weps_type) ,
intent(in) :: help
9846 real(RKC) ,
intent(out) :: integral, abserr
9847 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9848 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9849 integer(IK) ,
intent(out) :: neval
9850 integer(IK) ,
intent(out) :: nint
9856 module function QAGS_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK1
9861 procedure(
real(RKC)) :: getFunc
9862 type(ninf_type) ,
intent(in) :: lb
9863 real(RKC) ,
intent(in) :: ub
9864 real(RKC) ,
intent(in) :: abstol
9865 real(RKC) ,
intent(in) :: reltol
9866 type(GK31_type) ,
intent(in) :: qrule
9867 type(weps_type) ,
intent(in) :: help
9868 real(RKC) ,
intent(out) :: integral, abserr
9869 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9870 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9871 integer(IK) ,
intent(out) :: neval
9872 integer(IK) ,
intent(out) :: nint
9880 module function QAGS_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9882 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK5
9885 procedure(
real(RKC)) :: getFunc
9886 type(ninf_type) ,
intent(in) :: lb
9887 type(pinf_type) ,
intent(in) :: ub
9888 real(RKC) ,
intent(in) :: abstol
9889 real(RKC) ,
intent(in) :: reltol
9890 type(GK31_type) ,
intent(in) :: qrule
9891 type(weps_type) ,
intent(in) :: help
9892 real(RKC) ,
intent(out) :: integral, abserr
9893 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9894 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9895 integer(IK) ,
intent(out) :: neval
9896 integer(IK) ,
intent(out) :: nint
9902 module function QAGS_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK4
9907 procedure(
real(RKC)) :: getFunc
9908 type(ninf_type) ,
intent(in) :: lb
9909 type(pinf_type) ,
intent(in) :: ub
9910 real(RKC) ,
intent(in) :: abstol
9911 real(RKC) ,
intent(in) :: reltol
9912 type(GK31_type) ,
intent(in) :: qrule
9913 type(weps_type) ,
intent(in) :: help
9914 real(RKC) ,
intent(out) :: integral, abserr
9915 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9916 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9917 integer(IK) ,
intent(out) :: neval
9918 integer(IK) ,
intent(out) :: nint
9924 module function QAGS_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9926 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK3
9929 procedure(
real(RKC)) :: getFunc
9930 type(ninf_type) ,
intent(in) :: lb
9931 type(pinf_type) ,
intent(in) :: ub
9932 real(RKC) ,
intent(in) :: abstol
9933 real(RKC) ,
intent(in) :: reltol
9934 type(GK31_type) ,
intent(in) :: qrule
9935 type(weps_type) ,
intent(in) :: help
9936 real(RKC) ,
intent(out) :: integral, abserr
9937 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9938 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9939 integer(IK) ,
intent(out) :: neval
9940 integer(IK) ,
intent(out) :: nint
9946 module function QAGS_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9948 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK2
9951 procedure(
real(RKC)) :: getFunc
9952 type(ninf_type) ,
intent(in) :: lb
9953 type(pinf_type) ,
intent(in) :: ub
9954 real(RKC) ,
intent(in) :: abstol
9955 real(RKC) ,
intent(in) :: reltol
9956 type(GK31_type) ,
intent(in) :: qrule
9957 type(weps_type) ,
intent(in) :: help
9958 real(RKC) ,
intent(out) :: integral, abserr
9959 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9960 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9961 integer(IK) ,
intent(out) :: neval
9962 integer(IK) ,
intent(out) :: nint
9968 module function QAGS_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK1
9973 procedure(
real(RKC)) :: getFunc
9974 type(ninf_type) ,
intent(in) :: lb
9975 type(pinf_type) ,
intent(in) :: ub
9976 real(RKC) ,
intent(in) :: abstol
9977 real(RKC) ,
intent(in) :: reltol
9978 type(GK31_type) ,
intent(in) :: qrule
9979 type(weps_type) ,
intent(in) :: help
9980 real(RKC) ,
intent(out) :: integral, abserr
9981 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9982 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9983 integer(IK) ,
intent(out) :: neval
9984 integer(IK) ,
intent(out) :: nint
10000 module function QAGS_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10002 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK5
10005 procedure(
real(RKC)) :: getFunc
10006 real(RKC) ,
intent(in) :: lb
10007 real(RKC) ,
intent(in) :: ub
10008 real(RKC) ,
intent(in) :: abstol
10009 real(RKC) ,
intent(in) :: reltol
10010 type(GK41_type) ,
intent(in) :: qrule
10011 type(weps_type) ,
intent(in) :: help
10012 real(RKC) ,
intent(out) :: integral, abserr
10013 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10014 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10015 integer(IK) ,
intent(out) :: neval
10016 integer(IK) ,
intent(out) :: nint
10022 module function QAGS_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10024 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK4
10027 procedure(
real(RKC)) :: getFunc
10028 real(RKC) ,
intent(in) :: lb
10029 real(RKC) ,
intent(in) :: ub
10030 real(RKC) ,
intent(in) :: abstol
10031 real(RKC) ,
intent(in) :: reltol
10032 type(GK41_type) ,
intent(in) :: qrule
10033 type(weps_type) ,
intent(in) :: help
10034 real(RKC) ,
intent(out) :: integral, abserr
10035 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10036 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10037 integer(IK) ,
intent(out) :: neval
10038 integer(IK) ,
intent(out) :: nint
10044 module function QAGS_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10046 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK3
10049 procedure(
real(RKC)) :: getFunc
10050 real(RKC) ,
intent(in) :: lb
10051 real(RKC) ,
intent(in) :: ub
10052 real(RKC) ,
intent(in) :: abstol
10053 real(RKC) ,
intent(in) :: reltol
10054 type(GK41_type) ,
intent(in) :: qrule
10055 type(weps_type) ,
intent(in) :: help
10056 real(RKC) ,
intent(out) :: integral, abserr
10057 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10058 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10059 integer(IK) ,
intent(out) :: neval
10060 integer(IK) ,
intent(out) :: nint
10066 module function QAGS_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10068 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK2
10071 procedure(
real(RKC)) :: getFunc
10072 real(RKC) ,
intent(in) :: lb
10073 real(RKC) ,
intent(in) :: ub
10074 real(RKC) ,
intent(in) :: abstol
10075 real(RKC) ,
intent(in) :: reltol
10076 type(GK41_type) ,
intent(in) :: qrule
10077 type(weps_type) ,
intent(in) :: help
10078 real(RKC) ,
intent(out) :: integral, abserr
10079 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10080 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10081 integer(IK) ,
intent(out) :: neval
10082 integer(IK) ,
intent(out) :: nint
10088 module function QAGS_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10090 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK1
10093 procedure(
real(RKC)) :: getFunc
10094 real(RKC) ,
intent(in) :: lb
10095 real(RKC) ,
intent(in) :: ub
10096 real(RKC) ,
intent(in) :: abstol
10097 real(RKC) ,
intent(in) :: reltol
10098 type(GK41_type) ,
intent(in) :: qrule
10099 type(weps_type) ,
intent(in) :: help
10100 real(RKC) ,
intent(out) :: integral, abserr
10101 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10102 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10103 integer(IK) ,
intent(out) :: neval
10104 integer(IK) ,
intent(out) :: nint
10112 module function QAGS_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10114 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK5
10117 procedure(
real(RKC)) :: getFunc
10118 real(RKC) ,
intent(in) :: lb
10119 type(pinf_type) ,
intent(in) :: ub
10120 real(RKC) ,
intent(in) :: abstol
10121 real(RKC) ,
intent(in) :: reltol
10122 type(GK41_type) ,
intent(in) :: qrule
10123 type(weps_type) ,
intent(in) :: help
10124 real(RKC) ,
intent(out) :: integral, abserr
10125 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10126 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10127 integer(IK) ,
intent(out) :: neval
10128 integer(IK) ,
intent(out) :: nint
10134 module function QAGS_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10136 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK4
10139 procedure(
real(RKC)) :: getFunc
10140 real(RKC) ,
intent(in) :: lb
10141 type(pinf_type) ,
intent(in) :: ub
10142 real(RKC) ,
intent(in) :: abstol
10143 real(RKC) ,
intent(in) :: reltol
10144 type(GK41_type) ,
intent(in) :: qrule
10145 type(weps_type) ,
intent(in) :: help
10146 real(RKC) ,
intent(out) :: integral, abserr
10147 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10148 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10149 integer(IK) ,
intent(out) :: neval
10150 integer(IK) ,
intent(out) :: nint
10156 module function QAGS_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK3
10161 procedure(
real(RKC)) :: getFunc
10162 real(RKC) ,
intent(in) :: lb
10163 type(pinf_type) ,
intent(in) :: ub
10164 real(RKC) ,
intent(in) :: abstol
10165 real(RKC) ,
intent(in) :: reltol
10166 type(GK41_type) ,
intent(in) :: qrule
10167 type(weps_type) ,
intent(in) :: help
10168 real(RKC) ,
intent(out) :: integral, abserr
10169 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10170 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10171 integer(IK) ,
intent(out) :: neval
10172 integer(IK) ,
intent(out) :: nint
10178 module function QAGS_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10180 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK2
10183 procedure(
real(RKC)) :: getFunc
10184 real(RKC) ,
intent(in) :: lb
10185 type(pinf_type) ,
intent(in) :: ub
10186 real(RKC) ,
intent(in) :: abstol
10187 real(RKC) ,
intent(in) :: reltol
10188 type(GK41_type) ,
intent(in) :: qrule
10189 type(weps_type) ,
intent(in) :: help
10190 real(RKC) ,
intent(out) :: integral, abserr
10191 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10192 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10193 integer(IK) ,
intent(out) :: neval
10194 integer(IK) ,
intent(out) :: nint
10200 module function QAGS_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK1
10205 procedure(
real(RKC)) :: getFunc
10206 real(RKC) ,
intent(in) :: lb
10207 type(pinf_type) ,
intent(in) :: ub
10208 real(RKC) ,
intent(in) :: abstol
10209 real(RKC) ,
intent(in) :: reltol
10210 type(GK41_type) ,
intent(in) :: qrule
10211 type(weps_type) ,
intent(in) :: help
10212 real(RKC) ,
intent(out) :: integral, abserr
10213 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10214 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10215 integer(IK) ,
intent(out) :: neval
10216 integer(IK) ,
intent(out) :: nint
10224 module function QAGS_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10226 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK5
10229 procedure(
real(RKC)) :: getFunc
10230 type(ninf_type) ,
intent(in) :: lb
10231 real(RKC) ,
intent(in) :: ub
10232 real(RKC) ,
intent(in) :: abstol
10233 real(RKC) ,
intent(in) :: reltol
10234 type(GK41_type) ,
intent(in) :: qrule
10235 type(weps_type) ,
intent(in) :: help
10236 real(RKC) ,
intent(out) :: integral, abserr
10237 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10238 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10239 integer(IK) ,
intent(out) :: neval
10240 integer(IK) ,
intent(out) :: nint
10246 module function QAGS_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10248 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK4
10251 procedure(
real(RKC)) :: getFunc
10252 type(ninf_type) ,
intent(in) :: lb
10253 real(RKC) ,
intent(in) :: ub
10254 real(RKC) ,
intent(in) :: abstol
10255 real(RKC) ,
intent(in) :: reltol
10256 type(GK41_type) ,
intent(in) :: qrule
10257 type(weps_type) ,
intent(in) :: help
10258 real(RKC) ,
intent(out) :: integral, abserr
10259 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10260 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10261 integer(IK) ,
intent(out) :: neval
10262 integer(IK) ,
intent(out) :: nint
10268 module function QAGS_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK3
10273 procedure(
real(RKC)) :: getFunc
10274 type(ninf_type) ,
intent(in) :: lb
10275 real(RKC) ,
intent(in) :: ub
10276 real(RKC) ,
intent(in) :: abstol
10277 real(RKC) ,
intent(in) :: reltol
10278 type(GK41_type) ,
intent(in) :: qrule
10279 type(weps_type) ,
intent(in) :: help
10280 real(RKC) ,
intent(out) :: integral, abserr
10281 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10282 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10283 integer(IK) ,
intent(out) :: neval
10284 integer(IK) ,
intent(out) :: nint
10290 module function QAGS_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10292 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK2
10295 procedure(
real(RKC)) :: getFunc
10296 type(ninf_type) ,
intent(in) :: lb
10297 real(RKC) ,
intent(in) :: ub
10298 real(RKC) ,
intent(in) :: abstol
10299 real(RKC) ,
intent(in) :: reltol
10300 type(GK41_type) ,
intent(in) :: qrule
10301 type(weps_type) ,
intent(in) :: help
10302 real(RKC) ,
intent(out) :: integral, abserr
10303 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10304 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10305 integer(IK) ,
intent(out) :: neval
10306 integer(IK) ,
intent(out) :: nint
10312 module function QAGS_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK1
10317 procedure(
real(RKC)) :: getFunc
10318 type(ninf_type) ,
intent(in) :: lb
10319 real(RKC) ,
intent(in) :: ub
10320 real(RKC) ,
intent(in) :: abstol
10321 real(RKC) ,
intent(in) :: reltol
10322 type(GK41_type) ,
intent(in) :: qrule
10323 type(weps_type) ,
intent(in) :: help
10324 real(RKC) ,
intent(out) :: integral, abserr
10325 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10326 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10327 integer(IK) ,
intent(out) :: neval
10328 integer(IK) ,
intent(out) :: nint
10336 module function QAGS_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10338 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK5
10341 procedure(
real(RKC)) :: getFunc
10342 type(ninf_type) ,
intent(in) :: lb
10343 type(pinf_type) ,
intent(in) :: ub
10344 real(RKC) ,
intent(in) :: abstol
10345 real(RKC) ,
intent(in) :: reltol
10346 type(GK41_type) ,
intent(in) :: qrule
10347 type(weps_type) ,
intent(in) :: help
10348 real(RKC) ,
intent(out) :: integral, abserr
10349 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10350 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10351 integer(IK) ,
intent(out) :: neval
10352 integer(IK) ,
intent(out) :: nint
10358 module function QAGS_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10360 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK4
10363 procedure(
real(RKC)) :: getFunc
10364 type(ninf_type) ,
intent(in) :: lb
10365 type(pinf_type) ,
intent(in) :: ub
10366 real(RKC) ,
intent(in) :: abstol
10367 real(RKC) ,
intent(in) :: reltol
10368 type(GK41_type) ,
intent(in) :: qrule
10369 type(weps_type) ,
intent(in) :: help
10370 real(RKC) ,
intent(out) :: integral, abserr
10371 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10372 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10373 integer(IK) ,
intent(out) :: neval
10374 integer(IK) ,
intent(out) :: nint
10380 module function QAGS_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10382 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK3
10385 procedure(
real(RKC)) :: getFunc
10386 type(ninf_type) ,
intent(in) :: lb
10387 type(pinf_type) ,
intent(in) :: ub
10388 real(RKC) ,
intent(in) :: abstol
10389 real(RKC) ,
intent(in) :: reltol
10390 type(GK41_type) ,
intent(in) :: qrule
10391 type(weps_type) ,
intent(in) :: help
10392 real(RKC) ,
intent(out) :: integral, abserr
10393 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10394 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10395 integer(IK) ,
intent(out) :: neval
10396 integer(IK) ,
intent(out) :: nint
10402 module function QAGS_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10404 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK2
10407 procedure(
real(RKC)) :: getFunc
10408 type(ninf_type) ,
intent(in) :: lb
10409 type(pinf_type) ,
intent(in) :: ub
10410 real(RKC) ,
intent(in) :: abstol
10411 real(RKC) ,
intent(in) :: reltol
10412 type(GK41_type) ,
intent(in) :: qrule
10413 type(weps_type) ,
intent(in) :: help
10414 real(RKC) ,
intent(out) :: integral, abserr
10415 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10416 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10417 integer(IK) ,
intent(out) :: neval
10418 integer(IK) ,
intent(out) :: nint
10424 module function QAGS_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK1
10429 procedure(
real(RKC)) :: getFunc
10430 type(ninf_type) ,
intent(in) :: lb
10431 type(pinf_type) ,
intent(in) :: ub
10432 real(RKC) ,
intent(in) :: abstol
10433 real(RKC) ,
intent(in) :: reltol
10434 type(GK41_type) ,
intent(in) :: qrule
10435 type(weps_type) ,
intent(in) :: help
10436 real(RKC) ,
intent(out) :: integral, abserr
10437 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10438 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10439 integer(IK) ,
intent(out) :: neval
10440 integer(IK) ,
intent(out) :: nint
10456 module function QAGS_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10458 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK5
10461 procedure(
real(RKC)) :: getFunc
10462 real(RKC) ,
intent(in) :: lb
10463 real(RKC) ,
intent(in) :: ub
10464 real(RKC) ,
intent(in) :: abstol
10465 real(RKC) ,
intent(in) :: reltol
10466 type(GK51_type) ,
intent(in) :: qrule
10467 type(weps_type) ,
intent(in) :: help
10468 real(RKC) ,
intent(out) :: integral, abserr
10469 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10470 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10471 integer(IK) ,
intent(out) :: neval
10472 integer(IK) ,
intent(out) :: nint
10478 module function QAGS_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10480 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK4
10483 procedure(
real(RKC)) :: getFunc
10484 real(RKC) ,
intent(in) :: lb
10485 real(RKC) ,
intent(in) :: ub
10486 real(RKC) ,
intent(in) :: abstol
10487 real(RKC) ,
intent(in) :: reltol
10488 type(GK51_type) ,
intent(in) :: qrule
10489 type(weps_type) ,
intent(in) :: help
10490 real(RKC) ,
intent(out) :: integral, abserr
10491 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10492 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10493 integer(IK) ,
intent(out) :: neval
10494 integer(IK) ,
intent(out) :: nint
10500 module function QAGS_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10502 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK3
10505 procedure(
real(RKC)) :: getFunc
10506 real(RKC) ,
intent(in) :: lb
10507 real(RKC) ,
intent(in) :: ub
10508 real(RKC) ,
intent(in) :: abstol
10509 real(RKC) ,
intent(in) :: reltol
10510 type(GK51_type) ,
intent(in) :: qrule
10511 type(weps_type) ,
intent(in) :: help
10512 real(RKC) ,
intent(out) :: integral, abserr
10513 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10514 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10515 integer(IK) ,
intent(out) :: neval
10516 integer(IK) ,
intent(out) :: nint
10522 module function QAGS_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10524 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK2
10527 procedure(
real(RKC)) :: getFunc
10528 real(RKC) ,
intent(in) :: lb
10529 real(RKC) ,
intent(in) :: ub
10530 real(RKC) ,
intent(in) :: abstol
10531 real(RKC) ,
intent(in) :: reltol
10532 type(GK51_type) ,
intent(in) :: qrule
10533 type(weps_type) ,
intent(in) :: help
10534 real(RKC) ,
intent(out) :: integral, abserr
10535 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10536 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10537 integer(IK) ,
intent(out) :: neval
10538 integer(IK) ,
intent(out) :: nint
10544 module function QAGS_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10546 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK1
10549 procedure(
real(RKC)) :: getFunc
10550 real(RKC) ,
intent(in) :: lb
10551 real(RKC) ,
intent(in) :: ub
10552 real(RKC) ,
intent(in) :: abstol
10553 real(RKC) ,
intent(in) :: reltol
10554 type(GK51_type) ,
intent(in) :: qrule
10555 type(weps_type) ,
intent(in) :: help
10556 real(RKC) ,
intent(out) :: integral, abserr
10557 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10558 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10559 integer(IK) ,
intent(out) :: neval
10560 integer(IK) ,
intent(out) :: nint
10568 module function QAGS_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10570 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK5
10573 procedure(
real(RKC)) :: getFunc
10574 real(RKC) ,
intent(in) :: lb
10575 type(pinf_type) ,
intent(in) :: ub
10576 real(RKC) ,
intent(in) :: abstol
10577 real(RKC) ,
intent(in) :: reltol
10578 type(GK51_type) ,
intent(in) :: qrule
10579 type(weps_type) ,
intent(in) :: help
10580 real(RKC) ,
intent(out) :: integral, abserr
10581 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10582 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10583 integer(IK) ,
intent(out) :: neval
10584 integer(IK) ,
intent(out) :: nint
10590 module function QAGS_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10592 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK4
10595 procedure(
real(RKC)) :: getFunc
10596 real(RKC) ,
intent(in) :: lb
10597 type(pinf_type) ,
intent(in) :: ub
10598 real(RKC) ,
intent(in) :: abstol
10599 real(RKC) ,
intent(in) :: reltol
10600 type(GK51_type) ,
intent(in) :: qrule
10601 type(weps_type) ,
intent(in) :: help
10602 real(RKC) ,
intent(out) :: integral, abserr
10603 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10604 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10605 integer(IK) ,
intent(out) :: neval
10606 integer(IK) ,
intent(out) :: nint
10612 module function QAGS_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK3
10617 procedure(
real(RKC)) :: getFunc
10618 real(RKC) ,
intent(in) :: lb
10619 type(pinf_type) ,
intent(in) :: ub
10620 real(RKC) ,
intent(in) :: abstol
10621 real(RKC) ,
intent(in) :: reltol
10622 type(GK51_type) ,
intent(in) :: qrule
10623 type(weps_type) ,
intent(in) :: help
10624 real(RKC) ,
intent(out) :: integral, abserr
10625 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10626 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10627 integer(IK) ,
intent(out) :: neval
10628 integer(IK) ,
intent(out) :: nint
10634 module function QAGS_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10636 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK2
10639 procedure(
real(RKC)) :: getFunc
10640 real(RKC) ,
intent(in) :: lb
10641 type(pinf_type) ,
intent(in) :: ub
10642 real(RKC) ,
intent(in) :: abstol
10643 real(RKC) ,
intent(in) :: reltol
10644 type(GK51_type) ,
intent(in) :: qrule
10645 type(weps_type) ,
intent(in) :: help
10646 real(RKC) ,
intent(out) :: integral, abserr
10647 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10648 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10649 integer(IK) ,
intent(out) :: neval
10650 integer(IK) ,
intent(out) :: nint
10656 module function QAGS_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK1
10661 procedure(
real(RKC)) :: getFunc
10662 real(RKC) ,
intent(in) :: lb
10663 type(pinf_type) ,
intent(in) :: ub
10664 real(RKC) ,
intent(in) :: abstol
10665 real(RKC) ,
intent(in) :: reltol
10666 type(GK51_type) ,
intent(in) :: qrule
10667 type(weps_type) ,
intent(in) :: help
10668 real(RKC) ,
intent(out) :: integral, abserr
10669 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10670 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10671 integer(IK) ,
intent(out) :: neval
10672 integer(IK) ,
intent(out) :: nint
10680 module function QAGS_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10682 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK5
10685 procedure(
real(RKC)) :: getFunc
10686 type(ninf_type) ,
intent(in) :: lb
10687 real(RKC) ,
intent(in) :: ub
10688 real(RKC) ,
intent(in) :: abstol
10689 real(RKC) ,
intent(in) :: reltol
10690 type(GK51_type) ,
intent(in) :: qrule
10691 type(weps_type) ,
intent(in) :: help
10692 real(RKC) ,
intent(out) :: integral, abserr
10693 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10694 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10695 integer(IK) ,
intent(out) :: neval
10696 integer(IK) ,
intent(out) :: nint
10702 module function QAGS_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK4
10707 procedure(
real(RKC)) :: getFunc
10708 type(ninf_type) ,
intent(in) :: lb
10709 real(RKC) ,
intent(in) :: ub
10710 real(RKC) ,
intent(in) :: abstol
10711 real(RKC) ,
intent(in) :: reltol
10712 type(GK51_type) ,
intent(in) :: qrule
10713 type(weps_type) ,
intent(in) :: help
10714 real(RKC) ,
intent(out) :: integral, abserr
10715 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10716 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10717 integer(IK) ,
intent(out) :: neval
10718 integer(IK) ,
intent(out) :: nint
10724 module function QAGS_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK3
10729 procedure(
real(RKC)) :: getFunc
10730 type(ninf_type) ,
intent(in) :: lb
10731 real(RKC) ,
intent(in) :: ub
10732 real(RKC) ,
intent(in) :: abstol
10733 real(RKC) ,
intent(in) :: reltol
10734 type(GK51_type) ,
intent(in) :: qrule
10735 type(weps_type) ,
intent(in) :: help
10736 real(RKC) ,
intent(out) :: integral, abserr
10737 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10738 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10739 integer(IK) ,
intent(out) :: neval
10740 integer(IK) ,
intent(out) :: nint
10746 module function QAGS_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK2
10751 procedure(
real(RKC)) :: getFunc
10752 type(ninf_type) ,
intent(in) :: lb
10753 real(RKC) ,
intent(in) :: ub
10754 real(RKC) ,
intent(in) :: abstol
10755 real(RKC) ,
intent(in) :: reltol
10756 type(GK51_type) ,
intent(in) :: qrule
10757 type(weps_type) ,
intent(in) :: help
10758 real(RKC) ,
intent(out) :: integral, abserr
10759 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10760 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10761 integer(IK) ,
intent(out) :: neval
10762 integer(IK) ,
intent(out) :: nint
10768 module function QAGS_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK1
10773 procedure(
real(RKC)) :: getFunc
10774 type(ninf_type) ,
intent(in) :: lb
10775 real(RKC) ,
intent(in) :: ub
10776 real(RKC) ,
intent(in) :: abstol
10777 real(RKC) ,
intent(in) :: reltol
10778 type(GK51_type) ,
intent(in) :: qrule
10779 type(weps_type) ,
intent(in) :: help
10780 real(RKC) ,
intent(out) :: integral, abserr
10781 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10782 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10783 integer(IK) ,
intent(out) :: neval
10784 integer(IK) ,
intent(out) :: nint
10792 module function QAGS_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK5
10797 procedure(
real(RKC)) :: getFunc
10798 type(ninf_type) ,
intent(in) :: lb
10799 type(pinf_type) ,
intent(in) :: ub
10800 real(RKC) ,
intent(in) :: abstol
10801 real(RKC) ,
intent(in) :: reltol
10802 type(GK51_type) ,
intent(in) :: qrule
10803 type(weps_type) ,
intent(in) :: help
10804 real(RKC) ,
intent(out) :: integral, abserr
10805 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10806 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10807 integer(IK) ,
intent(out) :: neval
10808 integer(IK) ,
intent(out) :: nint
10814 module function QAGS_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10816 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK4
10819 procedure(
real(RKC)) :: getFunc
10820 type(ninf_type) ,
intent(in) :: lb
10821 type(pinf_type) ,
intent(in) :: ub
10822 real(RKC) ,
intent(in) :: abstol
10823 real(RKC) ,
intent(in) :: reltol
10824 type(GK51_type) ,
intent(in) :: qrule
10825 type(weps_type) ,
intent(in) :: help
10826 real(RKC) ,
intent(out) :: integral, abserr
10827 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10828 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10829 integer(IK) ,
intent(out) :: neval
10830 integer(IK) ,
intent(out) :: nint
10836 module function QAGS_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10838 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK3
10841 procedure(
real(RKC)) :: getFunc
10842 type(ninf_type) ,
intent(in) :: lb
10843 type(pinf_type) ,
intent(in) :: ub
10844 real(RKC) ,
intent(in) :: abstol
10845 real(RKC) ,
intent(in) :: reltol
10846 type(GK51_type) ,
intent(in) :: qrule
10847 type(weps_type) ,
intent(in) :: help
10848 real(RKC) ,
intent(out) :: integral, abserr
10849 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10850 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10851 integer(IK) ,
intent(out) :: neval
10852 integer(IK) ,
intent(out) :: nint
10858 module function QAGS_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10860 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK2
10863 procedure(
real(RKC)) :: getFunc
10864 type(ninf_type) ,
intent(in) :: lb
10865 type(pinf_type) ,
intent(in) :: ub
10866 real(RKC) ,
intent(in) :: abstol
10867 real(RKC) ,
intent(in) :: reltol
10868 type(GK51_type) ,
intent(in) :: qrule
10869 type(weps_type) ,
intent(in) :: help
10870 real(RKC) ,
intent(out) :: integral, abserr
10871 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10872 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10873 integer(IK) ,
intent(out) :: neval
10874 integer(IK) ,
intent(out) :: nint
10880 module function QAGS_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10882 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK1
10885 procedure(
real(RKC)) :: getFunc
10886 type(ninf_type) ,
intent(in) :: lb
10887 type(pinf_type) ,
intent(in) :: ub
10888 real(RKC) ,
intent(in) :: abstol
10889 real(RKC) ,
intent(in) :: reltol
10890 type(GK51_type) ,
intent(in) :: qrule
10891 type(weps_type) ,
intent(in) :: help
10892 real(RKC) ,
intent(out) :: integral, abserr
10893 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10894 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10895 integer(IK) ,
intent(out) :: neval
10896 integer(IK) ,
intent(out) :: nint
10912 module function QAGS_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10914 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK5
10917 procedure(
real(RKC)) :: getFunc
10918 real(RKC) ,
intent(in) :: lb
10919 real(RKC) ,
intent(in) :: ub
10920 real(RKC) ,
intent(in) :: abstol
10921 real(RKC) ,
intent(in) :: reltol
10922 type(GK61_type) ,
intent(in) :: qrule
10923 type(weps_type) ,
intent(in) :: help
10924 real(RKC) ,
intent(out) :: integral, abserr
10925 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10926 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10927 integer(IK) ,
intent(out) :: neval
10928 integer(IK) ,
intent(out) :: nint
10934 module function QAGS_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10936 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK4
10939 procedure(
real(RKC)) :: getFunc
10940 real(RKC) ,
intent(in) :: lb
10941 real(RKC) ,
intent(in) :: ub
10942 real(RKC) ,
intent(in) :: abstol
10943 real(RKC) ,
intent(in) :: reltol
10944 type(GK61_type) ,
intent(in) :: qrule
10945 type(weps_type) ,
intent(in) :: help
10946 real(RKC) ,
intent(out) :: integral, abserr
10947 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10948 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10949 integer(IK) ,
intent(out) :: neval
10950 integer(IK) ,
intent(out) :: nint
10956 module function QAGS_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10958 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK3
10961 procedure(
real(RKC)) :: getFunc
10962 real(RKC) ,
intent(in) :: lb
10963 real(RKC) ,
intent(in) :: ub
10964 real(RKC) ,
intent(in) :: abstol
10965 real(RKC) ,
intent(in) :: reltol
10966 type(GK61_type) ,
intent(in) :: qrule
10967 type(weps_type) ,
intent(in) :: help
10968 real(RKC) ,
intent(out) :: integral, abserr
10969 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10970 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10971 integer(IK) ,
intent(out) :: neval
10972 integer(IK) ,
intent(out) :: nint
10978 module function QAGS_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10980 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK2
10983 procedure(
real(RKC)) :: getFunc
10984 real(RKC) ,
intent(in) :: lb
10985 real(RKC) ,
intent(in) :: ub
10986 real(RKC) ,
intent(in) :: abstol
10987 real(RKC) ,
intent(in) :: reltol
10988 type(GK61_type) ,
intent(in) :: qrule
10989 type(weps_type) ,
intent(in) :: help
10990 real(RKC) ,
intent(out) :: integral, abserr
10991 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10992 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10993 integer(IK) ,
intent(out) :: neval
10994 integer(IK) ,
intent(out) :: nint
11000 module function QAGS_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11002 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK1
11005 procedure(
real(RKC)) :: getFunc
11006 real(RKC) ,
intent(in) :: lb
11007 real(RKC) ,
intent(in) :: ub
11008 real(RKC) ,
intent(in) :: abstol
11009 real(RKC) ,
intent(in) :: reltol
11010 type(GK61_type) ,
intent(in) :: qrule
11011 type(weps_type) ,
intent(in) :: help
11012 real(RKC) ,
intent(out) :: integral, abserr
11013 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11014 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11015 integer(IK) ,
intent(out) :: neval
11016 integer(IK) ,
intent(out) :: nint
11024 module function QAGS_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11026 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK5
11029 procedure(
real(RKC)) :: getFunc
11030 real(RKC) ,
intent(in) :: lb
11031 type(pinf_type) ,
intent(in) :: ub
11032 real(RKC) ,
intent(in) :: abstol
11033 real(RKC) ,
intent(in) :: reltol
11034 type(GK61_type) ,
intent(in) :: qrule
11035 type(weps_type) ,
intent(in) :: help
11036 real(RKC) ,
intent(out) :: integral, abserr
11037 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11038 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11039 integer(IK) ,
intent(out) :: neval
11040 integer(IK) ,
intent(out) :: nint
11046 module function QAGS_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11048 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK4
11051 procedure(
real(RKC)) :: getFunc
11052 real(RKC) ,
intent(in) :: lb
11053 type(pinf_type) ,
intent(in) :: ub
11054 real(RKC) ,
intent(in) :: abstol
11055 real(RKC) ,
intent(in) :: reltol
11056 type(GK61_type) ,
intent(in) :: qrule
11057 type(weps_type) ,
intent(in) :: help
11058 real(RKC) ,
intent(out) :: integral, abserr
11059 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11060 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11061 integer(IK) ,
intent(out) :: neval
11062 integer(IK) ,
intent(out) :: nint
11068 module function QAGS_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11070 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK3
11073 procedure(
real(RKC)) :: getFunc
11074 real(RKC) ,
intent(in) :: lb
11075 type(pinf_type) ,
intent(in) :: ub
11076 real(RKC) ,
intent(in) :: abstol
11077 real(RKC) ,
intent(in) :: reltol
11078 type(GK61_type) ,
intent(in) :: qrule
11079 type(weps_type) ,
intent(in) :: help
11080 real(RKC) ,
intent(out) :: integral, abserr
11081 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11082 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11083 integer(IK) ,
intent(out) :: neval
11084 integer(IK) ,
intent(out) :: nint
11090 module function QAGS_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11092 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK2
11095 procedure(
real(RKC)) :: getFunc
11096 real(RKC) ,
intent(in) :: lb
11097 type(pinf_type) ,
intent(in) :: ub
11098 real(RKC) ,
intent(in) :: abstol
11099 real(RKC) ,
intent(in) :: reltol
11100 type(GK61_type) ,
intent(in) :: qrule
11101 type(weps_type) ,
intent(in) :: help
11102 real(RKC) ,
intent(out) :: integral, abserr
11103 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11104 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11105 integer(IK) ,
intent(out) :: neval
11106 integer(IK) ,
intent(out) :: nint
11112 module function QAGS_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11114 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK1
11117 procedure(
real(RKC)) :: getFunc
11118 real(RKC) ,
intent(in) :: lb
11119 type(pinf_type) ,
intent(in) :: ub
11120 real(RKC) ,
intent(in) :: abstol
11121 real(RKC) ,
intent(in) :: reltol
11122 type(GK61_type) ,
intent(in) :: qrule
11123 type(weps_type) ,
intent(in) :: help
11124 real(RKC) ,
intent(out) :: integral, abserr
11125 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11126 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11127 integer(IK) ,
intent(out) :: neval
11128 integer(IK) ,
intent(out) :: nint
11136 module function QAGS_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11138 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK5
11141 procedure(
real(RKC)) :: getFunc
11142 type(ninf_type) ,
intent(in) :: lb
11143 real(RKC) ,
intent(in) :: ub
11144 real(RKC) ,
intent(in) :: abstol
11145 real(RKC) ,
intent(in) :: reltol
11146 type(GK61_type) ,
intent(in) :: qrule
11147 type(weps_type) ,
intent(in) :: help
11148 real(RKC) ,
intent(out) :: integral, abserr
11149 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11150 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11151 integer(IK) ,
intent(out) :: neval
11152 integer(IK) ,
intent(out) :: nint
11158 module function QAGS_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11160 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK4
11163 procedure(
real(RKC)) :: getFunc
11164 type(ninf_type) ,
intent(in) :: lb
11165 real(RKC) ,
intent(in) :: ub
11166 real(RKC) ,
intent(in) :: abstol
11167 real(RKC) ,
intent(in) :: reltol
11168 type(GK61_type) ,
intent(in) :: qrule
11169 type(weps_type) ,
intent(in) :: help
11170 real(RKC) ,
intent(out) :: integral, abserr
11171 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11172 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11173 integer(IK) ,
intent(out) :: neval
11174 integer(IK) ,
intent(out) :: nint
11180 module function QAGS_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11182 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK3
11185 procedure(
real(RKC)) :: getFunc
11186 type(ninf_type) ,
intent(in) :: lb
11187 real(RKC) ,
intent(in) :: ub
11188 real(RKC) ,
intent(in) :: abstol
11189 real(RKC) ,
intent(in) :: reltol
11190 type(GK61_type) ,
intent(in) :: qrule
11191 type(weps_type) ,
intent(in) :: help
11192 real(RKC) ,
intent(out) :: integral, abserr
11193 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11194 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11195 integer(IK) ,
intent(out) :: neval
11196 integer(IK) ,
intent(out) :: nint
11202 module function QAGS_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11204 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK2
11207 procedure(
real(RKC)) :: getFunc
11208 type(ninf_type) ,
intent(in) :: lb
11209 real(RKC) ,
intent(in) :: ub
11210 real(RKC) ,
intent(in) :: abstol
11211 real(RKC) ,
intent(in) :: reltol
11212 type(GK61_type) ,
intent(in) :: qrule
11213 type(weps_type) ,
intent(in) :: help
11214 real(RKC) ,
intent(out) :: integral, abserr
11215 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11216 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11217 integer(IK) ,
intent(out) :: neval
11218 integer(IK) ,
intent(out) :: nint
11224 module function QAGS_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11226 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK1
11229 procedure(
real(RKC)) :: getFunc
11230 type(ninf_type) ,
intent(in) :: lb
11231 real(RKC) ,
intent(in) :: ub
11232 real(RKC) ,
intent(in) :: abstol
11233 real(RKC) ,
intent(in) :: reltol
11234 type(GK61_type) ,
intent(in) :: qrule
11235 type(weps_type) ,
intent(in) :: help
11236 real(RKC) ,
intent(out) :: integral, abserr
11237 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11238 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11239 integer(IK) ,
intent(out) :: neval
11240 integer(IK) ,
intent(out) :: nint
11248 module function QAGS_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11250 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK5
11253 procedure(
real(RKC)) :: getFunc
11254 type(ninf_type) ,
intent(in) :: lb
11255 type(pinf_type) ,
intent(in) :: ub
11256 real(RKC) ,
intent(in) :: abstol
11257 real(RKC) ,
intent(in) :: reltol
11258 type(GK61_type) ,
intent(in) :: qrule
11259 type(weps_type) ,
intent(in) :: help
11260 real(RKC) ,
intent(out) :: integral, abserr
11261 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11262 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11263 integer(IK) ,
intent(out) :: neval
11264 integer(IK) ,
intent(out) :: nint
11270 module function QAGS_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK4
11275 procedure(
real(RKC)) :: getFunc
11276 type(ninf_type) ,
intent(in) :: lb
11277 type(pinf_type) ,
intent(in) :: ub
11278 real(RKC) ,
intent(in) :: abstol
11279 real(RKC) ,
intent(in) :: reltol
11280 type(GK61_type) ,
intent(in) :: qrule
11281 type(weps_type) ,
intent(in) :: help
11282 real(RKC) ,
intent(out) :: integral, abserr
11283 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11284 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11285 integer(IK) ,
intent(out) :: neval
11286 integer(IK) ,
intent(out) :: nint
11292 module function QAGS_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11294 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK3
11297 procedure(
real(RKC)) :: getFunc
11298 type(ninf_type) ,
intent(in) :: lb
11299 type(pinf_type) ,
intent(in) :: ub
11300 real(RKC) ,
intent(in) :: abstol
11301 real(RKC) ,
intent(in) :: reltol
11302 type(GK61_type) ,
intent(in) :: qrule
11303 type(weps_type) ,
intent(in) :: help
11304 real(RKC) ,
intent(out) :: integral, abserr
11305 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11306 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11307 integer(IK) ,
intent(out) :: neval
11308 integer(IK) ,
intent(out) :: nint
11314 module function QAGS_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11316 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK2
11319 procedure(
real(RKC)) :: getFunc
11320 type(ninf_type) ,
intent(in) :: lb
11321 type(pinf_type) ,
intent(in) :: ub
11322 real(RKC) ,
intent(in) :: abstol
11323 real(RKC) ,
intent(in) :: reltol
11324 type(GK61_type) ,
intent(in) :: qrule
11325 type(weps_type) ,
intent(in) :: help
11326 real(RKC) ,
intent(out) :: integral, abserr
11327 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11328 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11329 integer(IK) ,
intent(out) :: neval
11330 integer(IK) ,
intent(out) :: nint
11336 module function QAGS_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11338 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK1
11341 procedure(
real(RKC)) :: getFunc
11342 type(ninf_type) ,
intent(in) :: lb
11343 type(pinf_type) ,
intent(in) :: ub
11344 real(RKC) ,
intent(in) :: abstol
11345 real(RKC) ,
intent(in) :: reltol
11346 type(GK61_type) ,
intent(in) :: qrule
11347 type(weps_type) ,
intent(in) :: help
11348 real(RKC) ,
intent(out) :: integral, abserr
11349 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11350 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11351 integer(IK) ,
intent(out) :: neval
11352 integer(IK) ,
intent(out) :: nint
11368 module function QAGS_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11370 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK5
11373 procedure(
real(RKC)) :: getFunc
11374 real(RKC) ,
intent(in) :: lb
11375 real(RKC) ,
intent(in) :: ub
11376 real(RKC) ,
intent(in) :: abstol
11377 real(RKC) ,
intent(in) :: reltol
11378 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11379 type(weps_type) ,
intent(in) :: help
11380 real(RKC) ,
intent(out) :: integral, abserr
11381 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11382 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11383 integer(IK) ,
intent(out) :: neval
11384 integer(IK) ,
intent(out) :: nint
11390 module function QAGS_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11392 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK4
11395 procedure(
real(RKC)) :: getFunc
11396 real(RKC) ,
intent(in) :: lb
11397 real(RKC) ,
intent(in) :: ub
11398 real(RKC) ,
intent(in) :: abstol
11399 real(RKC) ,
intent(in) :: reltol
11400 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11401 type(weps_type) ,
intent(in) :: help
11402 real(RKC) ,
intent(out) :: integral, abserr
11403 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11404 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11405 integer(IK) ,
intent(out) :: neval
11406 integer(IK) ,
intent(out) :: nint
11412 module function QAGS_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11414 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK3
11417 procedure(
real(RKC)) :: getFunc
11418 real(RKC) ,
intent(in) :: lb
11419 real(RKC) ,
intent(in) :: ub
11420 real(RKC) ,
intent(in) :: abstol
11421 real(RKC) ,
intent(in) :: reltol
11422 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11423 type(weps_type) ,
intent(in) :: help
11424 real(RKC) ,
intent(out) :: integral, abserr
11425 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11426 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11427 integer(IK) ,
intent(out) :: neval
11428 integer(IK) ,
intent(out) :: nint
11434 module function QAGS_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11436 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK2
11439 procedure(
real(RKC)) :: getFunc
11440 real(RKC) ,
intent(in) :: lb
11441 real(RKC) ,
intent(in) :: ub
11442 real(RKC) ,
intent(in) :: abstol
11443 real(RKC) ,
intent(in) :: reltol
11444 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11445 type(weps_type) ,
intent(in) :: help
11446 real(RKC) ,
intent(out) :: integral, abserr
11447 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11448 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11449 integer(IK) ,
intent(out) :: neval
11450 integer(IK) ,
intent(out) :: nint
11456 module function QAGS_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11458 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK1
11461 procedure(
real(RKC)) :: getFunc
11462 real(RKC) ,
intent(in) :: lb
11463 real(RKC) ,
intent(in) :: ub
11464 real(RKC) ,
intent(in) :: abstol
11465 real(RKC) ,
intent(in) :: reltol
11466 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11467 type(weps_type) ,
intent(in) :: help
11468 real(RKC) ,
intent(out) :: integral, abserr
11469 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11470 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11471 integer(IK) ,
intent(out) :: neval
11472 integer(IK) ,
intent(out) :: nint
11480 module function QAGS_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11482 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK5
11485 procedure(
real(RKC)) :: getFunc
11486 real(RKC) ,
intent(in) :: lb
11487 type(pinf_type) ,
intent(in) :: ub
11488 real(RKC) ,
intent(in) :: abstol
11489 real(RKC) ,
intent(in) :: reltol
11490 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11491 type(weps_type) ,
intent(in) :: help
11492 real(RKC) ,
intent(out) :: integral, abserr
11493 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11494 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11495 integer(IK) ,
intent(out) :: neval
11496 integer(IK) ,
intent(out) :: nint
11502 module function QAGS_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11504 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK4
11507 procedure(
real(RKC)) :: getFunc
11508 real(RKC) ,
intent(in) :: lb
11509 type(pinf_type) ,
intent(in) :: ub
11510 real(RKC) ,
intent(in) :: abstol
11511 real(RKC) ,
intent(in) :: reltol
11512 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11513 type(weps_type) ,
intent(in) :: help
11514 real(RKC) ,
intent(out) :: integral, abserr
11515 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11516 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11517 integer(IK) ,
intent(out) :: neval
11518 integer(IK) ,
intent(out) :: nint
11524 module function QAGS_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11526 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK3
11529 procedure(
real(RKC)) :: getFunc
11530 real(RKC) ,
intent(in) :: lb
11531 type(pinf_type) ,
intent(in) :: ub
11532 real(RKC) ,
intent(in) :: abstol
11533 real(RKC) ,
intent(in) :: reltol
11534 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11535 type(weps_type) ,
intent(in) :: help
11536 real(RKC) ,
intent(out) :: integral, abserr
11537 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11538 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11539 integer(IK) ,
intent(out) :: neval
11540 integer(IK) ,
intent(out) :: nint
11546 module function QAGS_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11548 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK2
11551 procedure(
real(RKC)) :: getFunc
11552 real(RKC) ,
intent(in) :: lb
11553 type(pinf_type) ,
intent(in) :: ub
11554 real(RKC) ,
intent(in) :: abstol
11555 real(RKC) ,
intent(in) :: reltol
11556 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11557 type(weps_type) ,
intent(in) :: help
11558 real(RKC) ,
intent(out) :: integral, abserr
11559 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11560 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11561 integer(IK) ,
intent(out) :: neval
11562 integer(IK) ,
intent(out) :: nint
11568 module function QAGS_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11570 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK1
11573 procedure(
real(RKC)) :: getFunc
11574 real(RKC) ,
intent(in) :: lb
11575 type(pinf_type) ,
intent(in) :: ub
11576 real(RKC) ,
intent(in) :: abstol
11577 real(RKC) ,
intent(in) :: reltol
11578 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11579 type(weps_type) ,
intent(in) :: help
11580 real(RKC) ,
intent(out) :: integral, abserr
11581 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11582 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11583 integer(IK) ,
intent(out) :: neval
11584 integer(IK) ,
intent(out) :: nint
11592 module function QAGS_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11594 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK5
11597 procedure(
real(RKC)) :: getFunc
11598 type(ninf_type) ,
intent(in) :: lb
11599 real(RKC) ,
intent(in) :: ub
11600 real(RKC) ,
intent(in) :: abstol
11601 real(RKC) ,
intent(in) :: reltol
11602 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11603 type(weps_type) ,
intent(in) :: help
11604 real(RKC) ,
intent(out) :: integral, abserr
11605 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11606 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11607 integer(IK) ,
intent(out) :: neval
11608 integer(IK) ,
intent(out) :: nint
11614 module function QAGS_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11616 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK4
11619 procedure(
real(RKC)) :: getFunc
11620 type(ninf_type) ,
intent(in) :: lb
11621 real(RKC) ,
intent(in) :: ub
11622 real(RKC) ,
intent(in) :: abstol
11623 real(RKC) ,
intent(in) :: reltol
11624 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11625 type(weps_type) ,
intent(in) :: help
11626 real(RKC) ,
intent(out) :: integral, abserr
11627 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11628 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11629 integer(IK) ,
intent(out) :: neval
11630 integer(IK) ,
intent(out) :: nint
11636 module function QAGS_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11638 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK3
11641 procedure(
real(RKC)) :: getFunc
11642 type(ninf_type) ,
intent(in) :: lb
11643 real(RKC) ,
intent(in) :: ub
11644 real(RKC) ,
intent(in) :: abstol
11645 real(RKC) ,
intent(in) :: reltol
11646 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11647 type(weps_type) ,
intent(in) :: help
11648 real(RKC) ,
intent(out) :: integral, abserr
11649 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11650 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11651 integer(IK) ,
intent(out) :: neval
11652 integer(IK) ,
intent(out) :: nint
11658 module function QAGS_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11660 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK2
11663 procedure(
real(RKC)) :: getFunc
11664 type(ninf_type) ,
intent(in) :: lb
11665 real(RKC) ,
intent(in) :: ub
11666 real(RKC) ,
intent(in) :: abstol
11667 real(RKC) ,
intent(in) :: reltol
11668 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11669 type(weps_type) ,
intent(in) :: help
11670 real(RKC) ,
intent(out) :: integral, abserr
11671 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11672 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11673 integer(IK) ,
intent(out) :: neval
11674 integer(IK) ,
intent(out) :: nint
11680 module function QAGS_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11682 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK1
11685 procedure(
real(RKC)) :: getFunc
11686 type(ninf_type) ,
intent(in) :: lb
11687 real(RKC) ,
intent(in) :: ub
11688 real(RKC) ,
intent(in) :: abstol
11689 real(RKC) ,
intent(in) :: reltol
11690 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11691 type(weps_type) ,
intent(in) :: help
11692 real(RKC) ,
intent(out) :: integral, abserr
11693 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11694 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11695 integer(IK) ,
intent(out) :: neval
11696 integer(IK) ,
intent(out) :: nint
11704 module function QAGS_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK5
11709 procedure(
real(RKC)) :: getFunc
11710 type(ninf_type) ,
intent(in) :: lb
11711 type(pinf_type) ,
intent(in) :: ub
11712 real(RKC) ,
intent(in) :: abstol
11713 real(RKC) ,
intent(in) :: reltol
11714 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11715 type(weps_type) ,
intent(in) :: help
11716 real(RKC) ,
intent(out) :: integral, abserr
11717 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11718 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11719 integer(IK) ,
intent(out) :: neval
11720 integer(IK) ,
intent(out) :: nint
11726 module function QAGS_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11728 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK4
11731 procedure(
real(RKC)) :: getFunc
11732 type(ninf_type) ,
intent(in) :: lb
11733 type(pinf_type) ,
intent(in) :: ub
11734 real(RKC) ,
intent(in) :: abstol
11735 real(RKC) ,
intent(in) :: reltol
11736 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11737 type(weps_type) ,
intent(in) :: help
11738 real(RKC) ,
intent(out) :: integral, abserr
11739 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11740 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11741 integer(IK) ,
intent(out) :: neval
11742 integer(IK) ,
intent(out) :: nint
11748 module function QAGS_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK3
11753 procedure(
real(RKC)) :: getFunc
11754 type(ninf_type) ,
intent(in) :: lb
11755 type(pinf_type) ,
intent(in) :: ub
11756 real(RKC) ,
intent(in) :: abstol
11757 real(RKC) ,
intent(in) :: reltol
11758 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11759 type(weps_type) ,
intent(in) :: help
11760 real(RKC) ,
intent(out) :: integral, abserr
11761 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11762 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11763 integer(IK) ,
intent(out) :: neval
11764 integer(IK) ,
intent(out) :: nint
11770 module function QAGS_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11772 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK2
11775 procedure(
real(RKC)) :: getFunc
11776 type(ninf_type) ,
intent(in) :: lb
11777 type(pinf_type) ,
intent(in) :: ub
11778 real(RKC) ,
intent(in) :: abstol
11779 real(RKC) ,
intent(in) :: reltol
11780 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11781 type(weps_type) ,
intent(in) :: help
11782 real(RKC) ,
intent(out) :: integral, abserr
11783 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11784 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11785 integer(IK) ,
intent(out) :: neval
11786 integer(IK) ,
intent(out) :: nint
11792 module function QAGS_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK1
11797 procedure(
real(RKC)) :: getFunc
11798 type(ninf_type) ,
intent(in) :: lb
11799 type(pinf_type) ,
intent(in) :: ub
11800 real(RKC) ,
intent(in) :: abstol
11801 real(RKC) ,
intent(in) :: reltol
11802 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11803 type(weps_type) ,
intent(in) :: help
11804 real(RKC) ,
intent(out) :: integral, abserr
11805 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11806 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11807 integer(IK) ,
intent(out) :: neval
11808 integer(IK) ,
intent(out) :: nint
11826 module function QAGP_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK5
11831 procedure(
real(RKC)) :: getFunc
11832 real(RKC) ,
intent(in) :: lb
11833 real(RKC) ,
intent(in) :: ub
11834 real(RKC) ,
intent(in) :: abstol
11835 real(RKC) ,
intent(in) :: reltol
11836 type(GK15_type) ,
intent(in) :: qrule
11837 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11838 real(RKC) ,
intent(out) :: integral, abserr
11839 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11840 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11841 integer(IK) ,
intent(out) :: neval
11842 integer(IK) ,
intent(out) :: nint
11848 module function QAGP_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11850 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK4
11853 procedure(
real(RKC)) :: getFunc
11854 real(RKC) ,
intent(in) :: lb
11855 real(RKC) ,
intent(in) :: ub
11856 real(RKC) ,
intent(in) :: abstol
11857 real(RKC) ,
intent(in) :: reltol
11858 type(GK15_type) ,
intent(in) :: qrule
11859 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11860 real(RKC) ,
intent(out) :: integral, abserr
11861 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11862 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11863 integer(IK) ,
intent(out) :: neval
11864 integer(IK) ,
intent(out) :: nint
11870 module function QAGP_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11872 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK3
11875 procedure(
real(RKC)) :: getFunc
11876 real(RKC) ,
intent(in) :: lb
11877 real(RKC) ,
intent(in) :: ub
11878 real(RKC) ,
intent(in) :: abstol
11879 real(RKC) ,
intent(in) :: reltol
11880 type(GK15_type) ,
intent(in) :: qrule
11881 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11882 real(RKC) ,
intent(out) :: integral, abserr
11883 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11884 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11885 integer(IK) ,
intent(out) :: neval
11886 integer(IK) ,
intent(out) :: nint
11892 module function QAGP_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11894 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK2
11897 procedure(
real(RKC)) :: getFunc
11898 real(RKC) ,
intent(in) :: lb
11899 real(RKC) ,
intent(in) :: ub
11900 real(RKC) ,
intent(in) :: abstol
11901 real(RKC) ,
intent(in) :: reltol
11902 type(GK15_type) ,
intent(in) :: qrule
11903 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11904 real(RKC) ,
intent(out) :: integral, abserr
11905 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11906 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11907 integer(IK) ,
intent(out) :: neval
11908 integer(IK) ,
intent(out) :: nint
11914 module function QAGP_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11916 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK1
11919 procedure(
real(RKC)) :: getFunc
11920 real(RKC) ,
intent(in) :: lb
11921 real(RKC) ,
intent(in) :: ub
11922 real(RKC) ,
intent(in) :: abstol
11923 real(RKC) ,
intent(in) :: reltol
11924 type(GK15_type) ,
intent(in) :: qrule
11925 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11926 real(RKC) ,
intent(out) :: integral, abserr
11927 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11928 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11929 integer(IK) ,
intent(out) :: neval
11930 integer(IK) ,
intent(out) :: nint
11938 module function QAGP_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK5
11943 procedure(
real(RKC)) :: getFunc
11944 real(RKC) ,
intent(in) :: lb
11945 type(pinf_type) ,
intent(in) :: ub
11946 real(RKC) ,
intent(in) :: abstol
11947 real(RKC) ,
intent(in) :: reltol
11948 type(GK15_type) ,
intent(in) :: qrule
11949 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11950 real(RKC) ,
intent(out) :: integral, abserr
11951 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11952 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11953 integer(IK) ,
intent(out) :: neval
11954 integer(IK) ,
intent(out) :: nint
11960 module function QAGP_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK4
11965 procedure(
real(RKC)) :: getFunc
11966 real(RKC) ,
intent(in) :: lb
11967 type(pinf_type) ,
intent(in) :: ub
11968 real(RKC) ,
intent(in) :: abstol
11969 real(RKC) ,
intent(in) :: reltol
11970 type(GK15_type) ,
intent(in) :: qrule
11971 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11972 real(RKC) ,
intent(out) :: integral, abserr
11973 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11974 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11975 integer(IK) ,
intent(out) :: neval
11976 integer(IK) ,
intent(out) :: nint
11982 module function QAGP_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11984 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK3
11987 procedure(
real(RKC)) :: getFunc
11988 real(RKC) ,
intent(in) :: lb
11989 type(pinf_type) ,
intent(in) :: ub
11990 real(RKC) ,
intent(in) :: abstol
11991 real(RKC) ,
intent(in) :: reltol
11992 type(GK15_type) ,
intent(in) :: qrule
11993 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11994 real(RKC) ,
intent(out) :: integral, abserr
11995 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11996 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11997 integer(IK) ,
intent(out) :: neval
11998 integer(IK) ,
intent(out) :: nint
12004 module function QAGP_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12006 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK2
12009 procedure(
real(RKC)) :: getFunc
12010 real(RKC) ,
intent(in) :: lb
12011 type(pinf_type) ,
intent(in) :: ub
12012 real(RKC) ,
intent(in) :: abstol
12013 real(RKC) ,
intent(in) :: reltol
12014 type(GK15_type) ,
intent(in) :: qrule
12015 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12016 real(RKC) ,
intent(out) :: integral, abserr
12017 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12018 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12019 integer(IK) ,
intent(out) :: neval
12020 integer(IK) ,
intent(out) :: nint
12026 module function QAGP_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12028 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK1
12031 procedure(
real(RKC)) :: getFunc
12032 real(RKC) ,
intent(in) :: lb
12033 type(pinf_type) ,
intent(in) :: ub
12034 real(RKC) ,
intent(in) :: abstol
12035 real(RKC) ,
intent(in) :: reltol
12036 type(GK15_type) ,
intent(in) :: qrule
12037 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12038 real(RKC) ,
intent(out) :: integral, abserr
12039 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12040 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12041 integer(IK) ,
intent(out) :: neval
12042 integer(IK) ,
intent(out) :: nint
12050 module function QAGP_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK5
12055 procedure(
real(RKC)) :: getFunc
12056 type(ninf_type) ,
intent(in) :: lb
12057 real(RKC) ,
intent(in) :: ub
12058 real(RKC) ,
intent(in) :: abstol
12059 real(RKC) ,
intent(in) :: reltol
12060 type(GK15_type) ,
intent(in) :: qrule
12061 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12062 real(RKC) ,
intent(out) :: integral, abserr
12063 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12064 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12065 integer(IK) ,
intent(out) :: neval
12066 integer(IK) ,
intent(out) :: nint
12072 module function QAGP_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK4
12077 procedure(
real(RKC)) :: getFunc
12078 type(ninf_type) ,
intent(in) :: lb
12079 real(RKC) ,
intent(in) :: ub
12080 real(RKC) ,
intent(in) :: abstol
12081 real(RKC) ,
intent(in) :: reltol
12082 type(GK15_type) ,
intent(in) :: qrule
12083 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12084 real(RKC) ,
intent(out) :: integral, abserr
12085 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12086 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12087 integer(IK) ,
intent(out) :: neval
12088 integer(IK) ,
intent(out) :: nint
12094 module function QAGP_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12096 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK3
12099 procedure(
real(RKC)) :: getFunc
12100 type(ninf_type) ,
intent(in) :: lb
12101 real(RKC) ,
intent(in) :: ub
12102 real(RKC) ,
intent(in) :: abstol
12103 real(RKC) ,
intent(in) :: reltol
12104 type(GK15_type) ,
intent(in) :: qrule
12105 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12106 real(RKC) ,
intent(out) :: integral, abserr
12107 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12108 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12109 integer(IK) ,
intent(out) :: neval
12110 integer(IK) ,
intent(out) :: nint
12116 module function QAGP_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12118 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK2
12121 procedure(
real(RKC)) :: getFunc
12122 type(ninf_type) ,
intent(in) :: lb
12123 real(RKC) ,
intent(in) :: ub
12124 real(RKC) ,
intent(in) :: abstol
12125 real(RKC) ,
intent(in) :: reltol
12126 type(GK15_type) ,
intent(in) :: qrule
12127 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12128 real(RKC) ,
intent(out) :: integral, abserr
12129 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12130 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12131 integer(IK) ,
intent(out) :: neval
12132 integer(IK) ,
intent(out) :: nint
12138 module function QAGP_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12140 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK1
12143 procedure(
real(RKC)) :: getFunc
12144 type(ninf_type) ,
intent(in) :: lb
12145 real(RKC) ,
intent(in) :: ub
12146 real(RKC) ,
intent(in) :: abstol
12147 real(RKC) ,
intent(in) :: reltol
12148 type(GK15_type) ,
intent(in) :: qrule
12149 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12150 real(RKC) ,
intent(out) :: integral, abserr
12151 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12152 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12153 integer(IK) ,
intent(out) :: neval
12154 integer(IK) ,
intent(out) :: nint
12162 module function QAGP_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12164 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK5
12167 procedure(
real(RKC)) :: getFunc
12168 type(ninf_type) ,
intent(in) :: lb
12169 type(pinf_type) ,
intent(in) :: ub
12170 real(RKC) ,
intent(in) :: abstol
12171 real(RKC) ,
intent(in) :: reltol
12172 type(GK15_type) ,
intent(in) :: qrule
12173 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12174 real(RKC) ,
intent(out) :: integral, abserr
12175 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12176 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12177 integer(IK) ,
intent(out) :: neval
12178 integer(IK) ,
intent(out) :: nint
12184 module function QAGP_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK4
12189 procedure(
real(RKC)) :: getFunc
12190 type(ninf_type) ,
intent(in) :: lb
12191 type(pinf_type) ,
intent(in) :: ub
12192 real(RKC) ,
intent(in) :: abstol
12193 real(RKC) ,
intent(in) :: reltol
12194 type(GK15_type) ,
intent(in) :: qrule
12195 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12196 real(RKC) ,
intent(out) :: integral, abserr
12197 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12198 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12199 integer(IK) ,
intent(out) :: neval
12200 integer(IK) ,
intent(out) :: nint
12206 module function QAGP_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12208 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK3
12211 procedure(
real(RKC)) :: getFunc
12212 type(ninf_type) ,
intent(in) :: lb
12213 type(pinf_type) ,
intent(in) :: ub
12214 real(RKC) ,
intent(in) :: abstol
12215 real(RKC) ,
intent(in) :: reltol
12216 type(GK15_type) ,
intent(in) :: qrule
12217 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12218 real(RKC) ,
intent(out) :: integral, abserr
12219 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12220 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12221 integer(IK) ,
intent(out) :: neval
12222 integer(IK) ,
intent(out) :: nint
12228 module function QAGP_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK2
12233 procedure(
real(RKC)) :: getFunc
12234 type(ninf_type) ,
intent(in) :: lb
12235 type(pinf_type) ,
intent(in) :: ub
12236 real(RKC) ,
intent(in) :: abstol
12237 real(RKC) ,
intent(in) :: reltol
12238 type(GK15_type) ,
intent(in) :: qrule
12239 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12240 real(RKC) ,
intent(out) :: integral, abserr
12241 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12242 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12243 integer(IK) ,
intent(out) :: neval
12244 integer(IK) ,
intent(out) :: nint
12250 module function QAGP_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12252 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK1
12255 procedure(
real(RKC)) :: getFunc
12256 type(ninf_type) ,
intent(in) :: lb
12257 type(pinf_type) ,
intent(in) :: ub
12258 real(RKC) ,
intent(in) :: abstol
12259 real(RKC) ,
intent(in) :: reltol
12260 type(GK15_type) ,
intent(in) :: qrule
12261 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12262 real(RKC) ,
intent(out) :: integral, abserr
12263 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12264 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12265 integer(IK) ,
intent(out) :: neval
12266 integer(IK) ,
intent(out) :: nint
12282 module function QAGP_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12284 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK5
12287 procedure(
real(RKC)) :: getFunc
12288 real(RKC) ,
intent(in) :: lb
12289 real(RKC) ,
intent(in) :: ub
12290 real(RKC) ,
intent(in) :: abstol
12291 real(RKC) ,
intent(in) :: reltol
12292 type(GK21_type) ,
intent(in) :: qrule
12293 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12294 real(RKC) ,
intent(out) :: integral, abserr
12295 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12296 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12297 integer(IK) ,
intent(out) :: neval
12298 integer(IK) ,
intent(out) :: nint
12304 module function QAGP_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK4
12309 procedure(
real(RKC)) :: getFunc
12310 real(RKC) ,
intent(in) :: lb
12311 real(RKC) ,
intent(in) :: ub
12312 real(RKC) ,
intent(in) :: abstol
12313 real(RKC) ,
intent(in) :: reltol
12314 type(GK21_type) ,
intent(in) :: qrule
12315 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12316 real(RKC) ,
intent(out) :: integral, abserr
12317 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12318 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12319 integer(IK) ,
intent(out) :: neval
12320 integer(IK) ,
intent(out) :: nint
12326 module function QAGP_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12328 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK3
12331 procedure(
real(RKC)) :: getFunc
12332 real(RKC) ,
intent(in) :: lb
12333 real(RKC) ,
intent(in) :: ub
12334 real(RKC) ,
intent(in) :: abstol
12335 real(RKC) ,
intent(in) :: reltol
12336 type(GK21_type) ,
intent(in) :: qrule
12337 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12338 real(RKC) ,
intent(out) :: integral, abserr
12339 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12340 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12341 integer(IK) ,
intent(out) :: neval
12342 integer(IK) ,
intent(out) :: nint
12348 module function QAGP_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12350 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK2
12353 procedure(
real(RKC)) :: getFunc
12354 real(RKC) ,
intent(in) :: lb
12355 real(RKC) ,
intent(in) :: ub
12356 real(RKC) ,
intent(in) :: abstol
12357 real(RKC) ,
intent(in) :: reltol
12358 type(GK21_type) ,
intent(in) :: qrule
12359 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12360 real(RKC) ,
intent(out) :: integral, abserr
12361 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12362 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12363 integer(IK) ,
intent(out) :: neval
12364 integer(IK) ,
intent(out) :: nint
12370 module function QAGP_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12372 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK1
12375 procedure(
real(RKC)) :: getFunc
12376 real(RKC) ,
intent(in) :: lb
12377 real(RKC) ,
intent(in) :: ub
12378 real(RKC) ,
intent(in) :: abstol
12379 real(RKC) ,
intent(in) :: reltol
12380 type(GK21_type) ,
intent(in) :: qrule
12381 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12382 real(RKC) ,
intent(out) :: integral, abserr
12383 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12384 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12385 integer(IK) ,
intent(out) :: neval
12386 integer(IK) ,
intent(out) :: nint
12394 module function QAGP_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK5
12399 procedure(
real(RKC)) :: getFunc
12400 real(RKC) ,
intent(in) :: lb
12401 type(pinf_type) ,
intent(in) :: ub
12402 real(RKC) ,
intent(in) :: abstol
12403 real(RKC) ,
intent(in) :: reltol
12404 type(GK21_type) ,
intent(in) :: qrule
12405 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12406 real(RKC) ,
intent(out) :: integral, abserr
12407 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12408 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12409 integer(IK) ,
intent(out) :: neval
12410 integer(IK) ,
intent(out) :: nint
12416 module function QAGP_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK4
12421 procedure(
real(RKC)) :: getFunc
12422 real(RKC) ,
intent(in) :: lb
12423 type(pinf_type) ,
intent(in) :: ub
12424 real(RKC) ,
intent(in) :: abstol
12425 real(RKC) ,
intent(in) :: reltol
12426 type(GK21_type) ,
intent(in) :: qrule
12427 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12428 real(RKC) ,
intent(out) :: integral, abserr
12429 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12430 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12431 integer(IK) ,
intent(out) :: neval
12432 integer(IK) ,
intent(out) :: nint
12438 module function QAGP_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12440 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK3
12443 procedure(
real(RKC)) :: getFunc
12444 real(RKC) ,
intent(in) :: lb
12445 type(pinf_type) ,
intent(in) :: ub
12446 real(RKC) ,
intent(in) :: abstol
12447 real(RKC) ,
intent(in) :: reltol
12448 type(GK21_type) ,
intent(in) :: qrule
12449 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12450 real(RKC) ,
intent(out) :: integral, abserr
12451 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12452 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12453 integer(IK) ,
intent(out) :: neval
12454 integer(IK) ,
intent(out) :: nint
12460 module function QAGP_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12462 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK2
12465 procedure(
real(RKC)) :: getFunc
12466 real(RKC) ,
intent(in) :: lb
12467 type(pinf_type) ,
intent(in) :: ub
12468 real(RKC) ,
intent(in) :: abstol
12469 real(RKC) ,
intent(in) :: reltol
12470 type(GK21_type) ,
intent(in) :: qrule
12471 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12472 real(RKC) ,
intent(out) :: integral, abserr
12473 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12474 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12475 integer(IK) ,
intent(out) :: neval
12476 integer(IK) ,
intent(out) :: nint
12482 module function QAGP_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12484 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK1
12487 procedure(
real(RKC)) :: getFunc
12488 real(RKC) ,
intent(in) :: lb
12489 type(pinf_type) ,
intent(in) :: ub
12490 real(RKC) ,
intent(in) :: abstol
12491 real(RKC) ,
intent(in) :: reltol
12492 type(GK21_type) ,
intent(in) :: qrule
12493 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12494 real(RKC) ,
intent(out) :: integral, abserr
12495 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12496 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12497 integer(IK) ,
intent(out) :: neval
12498 integer(IK) ,
intent(out) :: nint
12506 module function QAGP_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK5
12511 procedure(
real(RKC)) :: getFunc
12512 type(ninf_type) ,
intent(in) :: lb
12513 real(RKC) ,
intent(in) :: ub
12514 real(RKC) ,
intent(in) :: abstol
12515 real(RKC) ,
intent(in) :: reltol
12516 type(GK21_type) ,
intent(in) :: qrule
12517 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12518 real(RKC) ,
intent(out) :: integral, abserr
12519 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12520 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12521 integer(IK) ,
intent(out) :: neval
12522 integer(IK) ,
intent(out) :: nint
12528 module function QAGP_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK4
12533 procedure(
real(RKC)) :: getFunc
12534 type(ninf_type) ,
intent(in) :: lb
12535 real(RKC) ,
intent(in) :: ub
12536 real(RKC) ,
intent(in) :: abstol
12537 real(RKC) ,
intent(in) :: reltol
12538 type(GK21_type) ,
intent(in) :: qrule
12539 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12540 real(RKC) ,
intent(out) :: integral, abserr
12541 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12542 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12543 integer(IK) ,
intent(out) :: neval
12544 integer(IK) ,
intent(out) :: nint
12550 module function QAGP_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12552 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK3
12555 procedure(
real(RKC)) :: getFunc
12556 type(ninf_type) ,
intent(in) :: lb
12557 real(RKC) ,
intent(in) :: ub
12558 real(RKC) ,
intent(in) :: abstol
12559 real(RKC) ,
intent(in) :: reltol
12560 type(GK21_type) ,
intent(in) :: qrule
12561 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12562 real(RKC) ,
intent(out) :: integral, abserr
12563 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12564 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12565 integer(IK) ,
intent(out) :: neval
12566 integer(IK) ,
intent(out) :: nint
12572 module function QAGP_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12574 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK2
12577 procedure(
real(RKC)) :: getFunc
12578 type(ninf_type) ,
intent(in) :: lb
12579 real(RKC) ,
intent(in) :: ub
12580 real(RKC) ,
intent(in) :: abstol
12581 real(RKC) ,
intent(in) :: reltol
12582 type(GK21_type) ,
intent(in) :: qrule
12583 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12584 real(RKC) ,
intent(out) :: integral, abserr
12585 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12586 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12587 integer(IK) ,
intent(out) :: neval
12588 integer(IK) ,
intent(out) :: nint
12594 module function QAGP_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12596 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK1
12599 procedure(
real(RKC)) :: getFunc
12600 type(ninf_type) ,
intent(in) :: lb
12601 real(RKC) ,
intent(in) :: ub
12602 real(RKC) ,
intent(in) :: abstol
12603 real(RKC) ,
intent(in) :: reltol
12604 type(GK21_type) ,
intent(in) :: qrule
12605 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12606 real(RKC) ,
intent(out) :: integral, abserr
12607 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12608 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12609 integer(IK) ,
intent(out) :: neval
12610 integer(IK) ,
intent(out) :: nint
12618 module function QAGP_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK5
12623 procedure(
real(RKC)) :: getFunc
12624 type(ninf_type) ,
intent(in) :: lb
12625 type(pinf_type) ,
intent(in) :: ub
12626 real(RKC) ,
intent(in) :: abstol
12627 real(RKC) ,
intent(in) :: reltol
12628 type(GK21_type) ,
intent(in) :: qrule
12629 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12630 real(RKC) ,
intent(out) :: integral, abserr
12631 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12632 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12633 integer(IK) ,
intent(out) :: neval
12634 integer(IK) ,
intent(out) :: nint
12640 module function QAGP_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12642 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK4
12645 procedure(
real(RKC)) :: getFunc
12646 type(ninf_type) ,
intent(in) :: lb
12647 type(pinf_type) ,
intent(in) :: ub
12648 real(RKC) ,
intent(in) :: abstol
12649 real(RKC) ,
intent(in) :: reltol
12650 type(GK21_type) ,
intent(in) :: qrule
12651 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12652 real(RKC) ,
intent(out) :: integral, abserr
12653 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12654 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12655 integer(IK) ,
intent(out) :: neval
12656 integer(IK) ,
intent(out) :: nint
12662 module function QAGP_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK3
12667 procedure(
real(RKC)) :: getFunc
12668 type(ninf_type) ,
intent(in) :: lb
12669 type(pinf_type) ,
intent(in) :: ub
12670 real(RKC) ,
intent(in) :: abstol
12671 real(RKC) ,
intent(in) :: reltol
12672 type(GK21_type) ,
intent(in) :: qrule
12673 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12674 real(RKC) ,
intent(out) :: integral, abserr
12675 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12676 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12677 integer(IK) ,
intent(out) :: neval
12678 integer(IK) ,
intent(out) :: nint
12684 module function QAGP_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12686 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK2
12689 procedure(
real(RKC)) :: getFunc
12690 type(ninf_type) ,
intent(in) :: lb
12691 type(pinf_type) ,
intent(in) :: ub
12692 real(RKC) ,
intent(in) :: abstol
12693 real(RKC) ,
intent(in) :: reltol
12694 type(GK21_type) ,
intent(in) :: qrule
12695 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12696 real(RKC) ,
intent(out) :: integral, abserr
12697 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12698 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12699 integer(IK) ,
intent(out) :: neval
12700 integer(IK) ,
intent(out) :: nint
12706 module function QAGP_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK1
12711 procedure(
real(RKC)) :: getFunc
12712 type(ninf_type) ,
intent(in) :: lb
12713 type(pinf_type) ,
intent(in) :: ub
12714 real(RKC) ,
intent(in) :: abstol
12715 real(RKC) ,
intent(in) :: reltol
12716 type(GK21_type) ,
intent(in) :: qrule
12717 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12718 real(RKC) ,
intent(out) :: integral, abserr
12719 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12720 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12721 integer(IK) ,
intent(out) :: neval
12722 integer(IK) ,
intent(out) :: nint
12738 module function QAGP_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12740 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK5
12743 procedure(
real(RKC)) :: getFunc
12744 real(RKC) ,
intent(in) :: lb
12745 real(RKC) ,
intent(in) :: ub
12746 real(RKC) ,
intent(in) :: abstol
12747 real(RKC) ,
intent(in) :: reltol
12748 type(GK31_type) ,
intent(in) :: qrule
12749 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12750 real(RKC) ,
intent(out) :: integral, abserr
12751 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12752 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12753 integer(IK) ,
intent(out) :: neval
12754 integer(IK) ,
intent(out) :: nint
12760 module function QAGP_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12762 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK4
12765 procedure(
real(RKC)) :: getFunc
12766 real(RKC) ,
intent(in) :: lb
12767 real(RKC) ,
intent(in) :: ub
12768 real(RKC) ,
intent(in) :: abstol
12769 real(RKC) ,
intent(in) :: reltol
12770 type(GK31_type) ,
intent(in) :: qrule
12771 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12772 real(RKC) ,
intent(out) :: integral, abserr
12773 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12774 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12775 integer(IK) ,
intent(out) :: neval
12776 integer(IK) ,
intent(out) :: nint
12782 module function QAGP_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12784 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK3
12787 procedure(
real(RKC)) :: getFunc
12788 real(RKC) ,
intent(in) :: lb
12789 real(RKC) ,
intent(in) :: ub
12790 real(RKC) ,
intent(in) :: abstol
12791 real(RKC) ,
intent(in) :: reltol
12792 type(GK31_type) ,
intent(in) :: qrule
12793 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12794 real(RKC) ,
intent(out) :: integral, abserr
12795 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12796 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12797 integer(IK) ,
intent(out) :: neval
12798 integer(IK) ,
intent(out) :: nint
12804 module function QAGP_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12806 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK2
12809 procedure(
real(RKC)) :: getFunc
12810 real(RKC) ,
intent(in) :: lb
12811 real(RKC) ,
intent(in) :: ub
12812 real(RKC) ,
intent(in) :: abstol
12813 real(RKC) ,
intent(in) :: reltol
12814 type(GK31_type) ,
intent(in) :: qrule
12815 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12816 real(RKC) ,
intent(out) :: integral, abserr
12817 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12818 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12819 integer(IK) ,
intent(out) :: neval
12820 integer(IK) ,
intent(out) :: nint
12826 module function QAGP_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK1
12831 procedure(
real(RKC)) :: getFunc
12832 real(RKC) ,
intent(in) :: lb
12833 real(RKC) ,
intent(in) :: ub
12834 real(RKC) ,
intent(in) :: abstol
12835 real(RKC) ,
intent(in) :: reltol
12836 type(GK31_type) ,
intent(in) :: qrule
12837 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12838 real(RKC) ,
intent(out) :: integral, abserr
12839 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12840 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12841 integer(IK) ,
intent(out) :: neval
12842 integer(IK) ,
intent(out) :: nint
12850 module function QAGP_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK5
12855 procedure(
real(RKC)) :: getFunc
12856 real(RKC) ,
intent(in) :: lb
12857 type(pinf_type) ,
intent(in) :: ub
12858 real(RKC) ,
intent(in) :: abstol
12859 real(RKC) ,
intent(in) :: reltol
12860 type(GK31_type) ,
intent(in) :: qrule
12861 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12862 real(RKC) ,
intent(out) :: integral, abserr
12863 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12864 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12865 integer(IK) ,
intent(out) :: neval
12866 integer(IK) ,
intent(out) :: nint
12872 module function QAGP_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK4
12877 procedure(
real(RKC)) :: getFunc
12878 real(RKC) ,
intent(in) :: lb
12879 type(pinf_type) ,
intent(in) :: ub
12880 real(RKC) ,
intent(in) :: abstol
12881 real(RKC) ,
intent(in) :: reltol
12882 type(GK31_type) ,
intent(in) :: qrule
12883 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12884 real(RKC) ,
intent(out) :: integral, abserr
12885 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12886 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12887 integer(IK) ,
intent(out) :: neval
12888 integer(IK) ,
intent(out) :: nint
12894 module function QAGP_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK3
12899 procedure(
real(RKC)) :: getFunc
12900 real(RKC) ,
intent(in) :: lb
12901 type(pinf_type) ,
intent(in) :: ub
12902 real(RKC) ,
intent(in) :: abstol
12903 real(RKC) ,
intent(in) :: reltol
12904 type(GK31_type) ,
intent(in) :: qrule
12905 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12906 real(RKC) ,
intent(out) :: integral, abserr
12907 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12908 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12909 integer(IK) ,
intent(out) :: neval
12910 integer(IK) ,
intent(out) :: nint
12916 module function QAGP_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12918 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK2
12921 procedure(
real(RKC)) :: getFunc
12922 real(RKC) ,
intent(in) :: lb
12923 type(pinf_type) ,
intent(in) :: ub
12924 real(RKC) ,
intent(in) :: abstol
12925 real(RKC) ,
intent(in) :: reltol
12926 type(GK31_type) ,
intent(in) :: qrule
12927 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12928 real(RKC) ,
intent(out) :: integral, abserr
12929 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12930 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12931 integer(IK) ,
intent(out) :: neval
12932 integer(IK) ,
intent(out) :: nint
12938 module function QAGP_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK1
12943 procedure(
real(RKC)) :: getFunc
12944 real(RKC) ,
intent(in) :: lb
12945 type(pinf_type) ,
intent(in) :: ub
12946 real(RKC) ,
intent(in) :: abstol
12947 real(RKC) ,
intent(in) :: reltol
12948 type(GK31_type) ,
intent(in) :: qrule
12949 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12950 real(RKC) ,
intent(out) :: integral, abserr
12951 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12952 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12953 integer(IK) ,
intent(out) :: neval
12954 integer(IK) ,
intent(out) :: nint
12962 module function QAGP_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK5
12967 procedure(
real(RKC)) :: getFunc
12968 type(ninf_type) ,
intent(in) :: lb
12969 real(RKC) ,
intent(in) :: ub
12970 real(RKC) ,
intent(in) :: abstol
12971 real(RKC) ,
intent(in) :: reltol
12972 type(GK31_type) ,
intent(in) :: qrule
12973 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12974 real(RKC) ,
intent(out) :: integral, abserr
12975 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12976 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12977 integer(IK) ,
intent(out) :: neval
12978 integer(IK) ,
intent(out) :: nint
12984 module function QAGP_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK4
12989 procedure(
real(RKC)) :: getFunc
12990 type(ninf_type) ,
intent(in) :: lb
12991 real(RKC) ,
intent(in) :: ub
12992 real(RKC) ,
intent(in) :: abstol
12993 real(RKC) ,
intent(in) :: reltol
12994 type(GK31_type) ,
intent(in) :: qrule
12995 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12996 real(RKC) ,
intent(out) :: integral, abserr
12997 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12998 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12999 integer(IK) ,
intent(out) :: neval
13000 integer(IK) ,
intent(out) :: nint
13006 module function QAGP_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK3
13011 procedure(
real(RKC)) :: getFunc
13012 type(ninf_type) ,
intent(in) :: lb
13013 real(RKC) ,
intent(in) :: ub
13014 real(RKC) ,
intent(in) :: abstol
13015 real(RKC) ,
intent(in) :: reltol
13016 type(GK31_type) ,
intent(in) :: qrule
13017 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13018 real(RKC) ,
intent(out) :: integral, abserr
13019 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13020 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13021 integer(IK) ,
intent(out) :: neval
13022 integer(IK) ,
intent(out) :: nint
13028 module function QAGP_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13030 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK2
13033 procedure(
real(RKC)) :: getFunc
13034 type(ninf_type) ,
intent(in) :: lb
13035 real(RKC) ,
intent(in) :: ub
13036 real(RKC) ,
intent(in) :: abstol
13037 real(RKC) ,
intent(in) :: reltol
13038 type(GK31_type) ,
intent(in) :: qrule
13039 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13040 real(RKC) ,
intent(out) :: integral, abserr
13041 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13042 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13043 integer(IK) ,
intent(out) :: neval
13044 integer(IK) ,
intent(out) :: nint
13050 module function QAGP_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK1
13055 procedure(
real(RKC)) :: getFunc
13056 type(ninf_type) ,
intent(in) :: lb
13057 real(RKC) ,
intent(in) :: ub
13058 real(RKC) ,
intent(in) :: abstol
13059 real(RKC) ,
intent(in) :: reltol
13060 type(GK31_type) ,
intent(in) :: qrule
13061 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13062 real(RKC) ,
intent(out) :: integral, abserr
13063 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13064 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13065 integer(IK) ,
intent(out) :: neval
13066 integer(IK) ,
intent(out) :: nint
13074 module function QAGP_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13076 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK5
13079 procedure(
real(RKC)) :: getFunc
13080 type(ninf_type) ,
intent(in) :: lb
13081 type(pinf_type) ,
intent(in) :: ub
13082 real(RKC) ,
intent(in) :: abstol
13083 real(RKC) ,
intent(in) :: reltol
13084 type(GK31_type) ,
intent(in) :: qrule
13085 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13086 real(RKC) ,
intent(out) :: integral, abserr
13087 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13088 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13089 integer(IK) ,
intent(out) :: neval
13090 integer(IK) ,
intent(out) :: nint
13096 module function QAGP_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13098 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK4
13101 procedure(
real(RKC)) :: getFunc
13102 type(ninf_type) ,
intent(in) :: lb
13103 type(pinf_type) ,
intent(in) :: ub
13104 real(RKC) ,
intent(in) :: abstol
13105 real(RKC) ,
intent(in) :: reltol
13106 type(GK31_type) ,
intent(in) :: qrule
13107 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13108 real(RKC) ,
intent(out) :: integral, abserr
13109 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13110 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13111 integer(IK) ,
intent(out) :: neval
13112 integer(IK) ,
intent(out) :: nint
13118 module function QAGP_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13120 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK3
13123 procedure(
real(RKC)) :: getFunc
13124 type(ninf_type) ,
intent(in) :: lb
13125 type(pinf_type) ,
intent(in) :: ub
13126 real(RKC) ,
intent(in) :: abstol
13127 real(RKC) ,
intent(in) :: reltol
13128 type(GK31_type) ,
intent(in) :: qrule
13129 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13130 real(RKC) ,
intent(out) :: integral, abserr
13131 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13132 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13133 integer(IK) ,
intent(out) :: neval
13134 integer(IK) ,
intent(out) :: nint
13140 module function QAGP_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK2
13145 procedure(
real(RKC)) :: getFunc
13146 type(ninf_type) ,
intent(in) :: lb
13147 type(pinf_type) ,
intent(in) :: ub
13148 real(RKC) ,
intent(in) :: abstol
13149 real(RKC) ,
intent(in) :: reltol
13150 type(GK31_type) ,
intent(in) :: qrule
13151 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13152 real(RKC) ,
intent(out) :: integral, abserr
13153 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13154 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13155 integer(IK) ,
intent(out) :: neval
13156 integer(IK) ,
intent(out) :: nint
13162 module function QAGP_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13164 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK1
13167 procedure(
real(RKC)) :: getFunc
13168 type(ninf_type) ,
intent(in) :: lb
13169 type(pinf_type) ,
intent(in) :: ub
13170 real(RKC) ,
intent(in) :: abstol
13171 real(RKC) ,
intent(in) :: reltol
13172 type(GK31_type) ,
intent(in) :: qrule
13173 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13174 real(RKC) ,
intent(out) :: integral, abserr
13175 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13176 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13177 integer(IK) ,
intent(out) :: neval
13178 integer(IK) ,
intent(out) :: nint
13194 module function QAGP_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13196 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK5
13199 procedure(
real(RKC)) :: getFunc
13200 real(RKC) ,
intent(in) :: lb
13201 real(RKC) ,
intent(in) :: ub
13202 real(RKC) ,
intent(in) :: abstol
13203 real(RKC) ,
intent(in) :: reltol
13204 type(GK41_type) ,
intent(in) :: qrule
13205 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13206 real(RKC) ,
intent(out) :: integral, abserr
13207 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13208 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13209 integer(IK) ,
intent(out) :: neval
13210 integer(IK) ,
intent(out) :: nint
13216 module function QAGP_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13218 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK4
13221 procedure(
real(RKC)) :: getFunc
13222 real(RKC) ,
intent(in) :: lb
13223 real(RKC) ,
intent(in) :: ub
13224 real(RKC) ,
intent(in) :: abstol
13225 real(RKC) ,
intent(in) :: reltol
13226 type(GK41_type) ,
intent(in) :: qrule
13227 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13228 real(RKC) ,
intent(out) :: integral, abserr
13229 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13230 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13231 integer(IK) ,
intent(out) :: neval
13232 integer(IK) ,
intent(out) :: nint
13238 module function QAGP_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13240 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK3
13243 procedure(
real(RKC)) :: getFunc
13244 real(RKC) ,
intent(in) :: lb
13245 real(RKC) ,
intent(in) :: ub
13246 real(RKC) ,
intent(in) :: abstol
13247 real(RKC) ,
intent(in) :: reltol
13248 type(GK41_type) ,
intent(in) :: qrule
13249 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13250 real(RKC) ,
intent(out) :: integral, abserr
13251 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13252 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13253 integer(IK) ,
intent(out) :: neval
13254 integer(IK) ,
intent(out) :: nint
13260 module function QAGP_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13262 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK2
13265 procedure(
real(RKC)) :: getFunc
13266 real(RKC) ,
intent(in) :: lb
13267 real(RKC) ,
intent(in) :: ub
13268 real(RKC) ,
intent(in) :: abstol
13269 real(RKC) ,
intent(in) :: reltol
13270 type(GK41_type) ,
intent(in) :: qrule
13271 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13272 real(RKC) ,
intent(out) :: integral, abserr
13273 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13274 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13275 integer(IK) ,
intent(out) :: neval
13276 integer(IK) ,
intent(out) :: nint
13282 module function QAGP_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13284 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK1
13287 procedure(
real(RKC)) :: getFunc
13288 real(RKC) ,
intent(in) :: lb
13289 real(RKC) ,
intent(in) :: ub
13290 real(RKC) ,
intent(in) :: abstol
13291 real(RKC) ,
intent(in) :: reltol
13292 type(GK41_type) ,
intent(in) :: qrule
13293 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13294 real(RKC) ,
intent(out) :: integral, abserr
13295 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13296 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13297 integer(IK) ,
intent(out) :: neval
13298 integer(IK) ,
intent(out) :: nint
13306 module function QAGP_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13308 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK5
13311 procedure(
real(RKC)) :: getFunc
13312 real(RKC) ,
intent(in) :: lb
13313 type(pinf_type) ,
intent(in) :: ub
13314 real(RKC) ,
intent(in) :: abstol
13315 real(RKC) ,
intent(in) :: reltol
13316 type(GK41_type) ,
intent(in) :: qrule
13317 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13318 real(RKC) ,
intent(out) :: integral, abserr
13319 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13320 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13321 integer(IK) ,
intent(out) :: neval
13322 integer(IK) ,
intent(out) :: nint
13328 module function QAGP_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13330 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK4
13333 procedure(
real(RKC)) :: getFunc
13334 real(RKC) ,
intent(in) :: lb
13335 type(pinf_type) ,
intent(in) :: ub
13336 real(RKC) ,
intent(in) :: abstol
13337 real(RKC) ,
intent(in) :: reltol
13338 type(GK41_type) ,
intent(in) :: qrule
13339 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13340 real(RKC) ,
intent(out) :: integral, abserr
13341 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13342 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13343 integer(IK) ,
intent(out) :: neval
13344 integer(IK) ,
intent(out) :: nint
13350 module function QAGP_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK3
13355 procedure(
real(RKC)) :: getFunc
13356 real(RKC) ,
intent(in) :: lb
13357 type(pinf_type) ,
intent(in) :: ub
13358 real(RKC) ,
intent(in) :: abstol
13359 real(RKC) ,
intent(in) :: reltol
13360 type(GK41_type) ,
intent(in) :: qrule
13361 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13362 real(RKC) ,
intent(out) :: integral, abserr
13363 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13364 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13365 integer(IK) ,
intent(out) :: neval
13366 integer(IK) ,
intent(out) :: nint
13372 module function QAGP_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13374 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK2
13377 procedure(
real(RKC)) :: getFunc
13378 real(RKC) ,
intent(in) :: lb
13379 type(pinf_type) ,
intent(in) :: ub
13380 real(RKC) ,
intent(in) :: abstol
13381 real(RKC) ,
intent(in) :: reltol
13382 type(GK41_type) ,
intent(in) :: qrule
13383 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13384 real(RKC) ,
intent(out) :: integral, abserr
13385 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13386 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13387 integer(IK) ,
intent(out) :: neval
13388 integer(IK) ,
intent(out) :: nint
13394 module function QAGP_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK1
13399 procedure(
real(RKC)) :: getFunc
13400 real(RKC) ,
intent(in) :: lb
13401 type(pinf_type) ,
intent(in) :: ub
13402 real(RKC) ,
intent(in) :: abstol
13403 real(RKC) ,
intent(in) :: reltol
13404 type(GK41_type) ,
intent(in) :: qrule
13405 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13406 real(RKC) ,
intent(out) :: integral, abserr
13407 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13408 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13409 integer(IK) ,
intent(out) :: neval
13410 integer(IK) ,
intent(out) :: nint
13418 module function QAGP_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13420 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK5
13423 procedure(
real(RKC)) :: getFunc
13424 type(ninf_type) ,
intent(in) :: lb
13425 real(RKC) ,
intent(in) :: ub
13426 real(RKC) ,
intent(in) :: abstol
13427 real(RKC) ,
intent(in) :: reltol
13428 type(GK41_type) ,
intent(in) :: qrule
13429 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13430 real(RKC) ,
intent(out) :: integral, abserr
13431 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13432 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13433 integer(IK) ,
intent(out) :: neval
13434 integer(IK) ,
intent(out) :: nint
13440 module function QAGP_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13442 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK4
13445 procedure(
real(RKC)) :: getFunc
13446 type(ninf_type) ,
intent(in) :: lb
13447 real(RKC) ,
intent(in) :: ub
13448 real(RKC) ,
intent(in) :: abstol
13449 real(RKC) ,
intent(in) :: reltol
13450 type(GK41_type) ,
intent(in) :: qrule
13451 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13452 real(RKC) ,
intent(out) :: integral, abserr
13453 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13454 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13455 integer(IK) ,
intent(out) :: neval
13456 integer(IK) ,
intent(out) :: nint
13462 module function QAGP_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK3
13467 procedure(
real(RKC)) :: getFunc
13468 type(ninf_type) ,
intent(in) :: lb
13469 real(RKC) ,
intent(in) :: ub
13470 real(RKC) ,
intent(in) :: abstol
13471 real(RKC) ,
intent(in) :: reltol
13472 type(GK41_type) ,
intent(in) :: qrule
13473 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13474 real(RKC) ,
intent(out) :: integral, abserr
13475 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13476 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13477 integer(IK) ,
intent(out) :: neval
13478 integer(IK) ,
intent(out) :: nint
13484 module function QAGP_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13486 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK2
13489 procedure(
real(RKC)) :: getFunc
13490 type(ninf_type) ,
intent(in) :: lb
13491 real(RKC) ,
intent(in) :: ub
13492 real(RKC) ,
intent(in) :: abstol
13493 real(RKC) ,
intent(in) :: reltol
13494 type(GK41_type) ,
intent(in) :: qrule
13495 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13496 real(RKC) ,
intent(out) :: integral, abserr
13497 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13498 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13499 integer(IK) ,
intent(out) :: neval
13500 integer(IK) ,
intent(out) :: nint
13506 module function QAGP_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK1
13511 procedure(
real(RKC)) :: getFunc
13512 type(ninf_type) ,
intent(in) :: lb
13513 real(RKC) ,
intent(in) :: ub
13514 real(RKC) ,
intent(in) :: abstol
13515 real(RKC) ,
intent(in) :: reltol
13516 type(GK41_type) ,
intent(in) :: qrule
13517 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13518 real(RKC) ,
intent(out) :: integral, abserr
13519 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13520 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13521 integer(IK) ,
intent(out) :: neval
13522 integer(IK) ,
intent(out) :: nint
13530 module function QAGP_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13532 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK5
13535 procedure(
real(RKC)) :: getFunc
13536 type(ninf_type) ,
intent(in) :: lb
13537 type(pinf_type) ,
intent(in) :: ub
13538 real(RKC) ,
intent(in) :: abstol
13539 real(RKC) ,
intent(in) :: reltol
13540 type(GK41_type) ,
intent(in) :: qrule
13541 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13542 real(RKC) ,
intent(out) :: integral, abserr
13543 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13544 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13545 integer(IK) ,
intent(out) :: neval
13546 integer(IK) ,
intent(out) :: nint
13552 module function QAGP_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13554 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK4
13557 procedure(
real(RKC)) :: getFunc
13558 type(ninf_type) ,
intent(in) :: lb
13559 type(pinf_type) ,
intent(in) :: ub
13560 real(RKC) ,
intent(in) :: abstol
13561 real(RKC) ,
intent(in) :: reltol
13562 type(GK41_type) ,
intent(in) :: qrule
13563 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13564 real(RKC) ,
intent(out) :: integral, abserr
13565 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13566 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13567 integer(IK) ,
intent(out) :: neval
13568 integer(IK) ,
intent(out) :: nint
13574 module function QAGP_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13576 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK3
13579 procedure(
real(RKC)) :: getFunc
13580 type(ninf_type) ,
intent(in) :: lb
13581 type(pinf_type) ,
intent(in) :: ub
13582 real(RKC) ,
intent(in) :: abstol
13583 real(RKC) ,
intent(in) :: reltol
13584 type(GK41_type) ,
intent(in) :: qrule
13585 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13586 real(RKC) ,
intent(out) :: integral, abserr
13587 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13588 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13589 integer(IK) ,
intent(out) :: neval
13590 integer(IK) ,
intent(out) :: nint
13596 module function QAGP_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13598 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK2
13601 procedure(
real(RKC)) :: getFunc
13602 type(ninf_type) ,
intent(in) :: lb
13603 type(pinf_type) ,
intent(in) :: ub
13604 real(RKC) ,
intent(in) :: abstol
13605 real(RKC) ,
intent(in) :: reltol
13606 type(GK41_type) ,
intent(in) :: qrule
13607 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13608 real(RKC) ,
intent(out) :: integral, abserr
13609 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13610 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13611 integer(IK) ,
intent(out) :: neval
13612 integer(IK) ,
intent(out) :: nint
13618 module function QAGP_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK1
13623 procedure(
real(RKC)) :: getFunc
13624 type(ninf_type) ,
intent(in) :: lb
13625 type(pinf_type) ,
intent(in) :: ub
13626 real(RKC) ,
intent(in) :: abstol
13627 real(RKC) ,
intent(in) :: reltol
13628 type(GK41_type) ,
intent(in) :: qrule
13629 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13630 real(RKC) ,
intent(out) :: integral, abserr
13631 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13632 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13633 integer(IK) ,
intent(out) :: neval
13634 integer(IK) ,
intent(out) :: nint
13650 module function QAGP_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13652 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK5
13655 procedure(
real(RKC)) :: getFunc
13656 real(RKC) ,
intent(in) :: lb
13657 real(RKC) ,
intent(in) :: ub
13658 real(RKC) ,
intent(in) :: abstol
13659 real(RKC) ,
intent(in) :: reltol
13660 type(GK51_type) ,
intent(in) :: qrule
13661 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13662 real(RKC) ,
intent(out) :: integral, abserr
13663 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13664 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13665 integer(IK) ,
intent(out) :: neval
13666 integer(IK) ,
intent(out) :: nint
13672 module function QAGP_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13674 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK4
13677 procedure(
real(RKC)) :: getFunc
13678 real(RKC) ,
intent(in) :: lb
13679 real(RKC) ,
intent(in) :: ub
13680 real(RKC) ,
intent(in) :: abstol
13681 real(RKC) ,
intent(in) :: reltol
13682 type(GK51_type) ,
intent(in) :: qrule
13683 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13684 real(RKC) ,
intent(out) :: integral, abserr
13685 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13686 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13687 integer(IK) ,
intent(out) :: neval
13688 integer(IK) ,
intent(out) :: nint
13694 module function QAGP_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13696 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK3
13699 procedure(
real(RKC)) :: getFunc
13700 real(RKC) ,
intent(in) :: lb
13701 real(RKC) ,
intent(in) :: ub
13702 real(RKC) ,
intent(in) :: abstol
13703 real(RKC) ,
intent(in) :: reltol
13704 type(GK51_type) ,
intent(in) :: qrule
13705 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13706 real(RKC) ,
intent(out) :: integral, abserr
13707 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13708 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13709 integer(IK) ,
intent(out) :: neval
13710 integer(IK) ,
intent(out) :: nint
13716 module function QAGP_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13718 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK2
13721 procedure(
real(RKC)) :: getFunc
13722 real(RKC) ,
intent(in) :: lb
13723 real(RKC) ,
intent(in) :: ub
13724 real(RKC) ,
intent(in) :: abstol
13725 real(RKC) ,
intent(in) :: reltol
13726 type(GK51_type) ,
intent(in) :: qrule
13727 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13728 real(RKC) ,
intent(out) :: integral, abserr
13729 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13730 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13731 integer(IK) ,
intent(out) :: neval
13732 integer(IK) ,
intent(out) :: nint
13738 module function QAGP_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13740 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK1
13743 procedure(
real(RKC)) :: getFunc
13744 real(RKC) ,
intent(in) :: lb
13745 real(RKC) ,
intent(in) :: ub
13746 real(RKC) ,
intent(in) :: abstol
13747 real(RKC) ,
intent(in) :: reltol
13748 type(GK51_type) ,
intent(in) :: qrule
13749 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13750 real(RKC) ,
intent(out) :: integral, abserr
13751 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13752 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13753 integer(IK) ,
intent(out) :: neval
13754 integer(IK) ,
intent(out) :: nint
13762 module function QAGP_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13764 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK5
13767 procedure(
real(RKC)) :: getFunc
13768 real(RKC) ,
intent(in) :: lb
13769 type(pinf_type) ,
intent(in) :: ub
13770 real(RKC) ,
intent(in) :: abstol
13771 real(RKC) ,
intent(in) :: reltol
13772 type(GK51_type) ,
intent(in) :: qrule
13773 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13774 real(RKC) ,
intent(out) :: integral, abserr
13775 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13776 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13777 integer(IK) ,
intent(out) :: neval
13778 integer(IK) ,
intent(out) :: nint
13784 module function QAGP_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13786 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK4
13789 procedure(
real(RKC)) :: getFunc
13790 real(RKC) ,
intent(in) :: lb
13791 type(pinf_type) ,
intent(in) :: ub
13792 real(RKC) ,
intent(in) :: abstol
13793 real(RKC) ,
intent(in) :: reltol
13794 type(GK51_type) ,
intent(in) :: qrule
13795 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13796 real(RKC) ,
intent(out) :: integral, abserr
13797 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13798 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13799 integer(IK) ,
intent(out) :: neval
13800 integer(IK) ,
intent(out) :: nint
13806 module function QAGP_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK3
13811 procedure(
real(RKC)) :: getFunc
13812 real(RKC) ,
intent(in) :: lb
13813 type(pinf_type) ,
intent(in) :: ub
13814 real(RKC) ,
intent(in) :: abstol
13815 real(RKC) ,
intent(in) :: reltol
13816 type(GK51_type) ,
intent(in) :: qrule
13817 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13818 real(RKC) ,
intent(out) :: integral, abserr
13819 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13820 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13821 integer(IK) ,
intent(out) :: neval
13822 integer(IK) ,
intent(out) :: nint
13828 module function QAGP_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13830 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK2
13833 procedure(
real(RKC)) :: getFunc
13834 real(RKC) ,
intent(in) :: lb
13835 type(pinf_type) ,
intent(in) :: ub
13836 real(RKC) ,
intent(in) :: abstol
13837 real(RKC) ,
intent(in) :: reltol
13838 type(GK51_type) ,
intent(in) :: qrule
13839 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13840 real(RKC) ,
intent(out) :: integral, abserr
13841 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13842 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13843 integer(IK) ,
intent(out) :: neval
13844 integer(IK) ,
intent(out) :: nint
13850 module function QAGP_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK1
13855 procedure(
real(RKC)) :: getFunc
13856 real(RKC) ,
intent(in) :: lb
13857 type(pinf_type) ,
intent(in) :: ub
13858 real(RKC) ,
intent(in) :: abstol
13859 real(RKC) ,
intent(in) :: reltol
13860 type(GK51_type) ,
intent(in) :: qrule
13861 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13862 real(RKC) ,
intent(out) :: integral, abserr
13863 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13864 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13865 integer(IK) ,
intent(out) :: neval
13866 integer(IK) ,
intent(out) :: nint
13874 module function QAGP_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK5
13879 procedure(
real(RKC)) :: getFunc
13880 type(ninf_type) ,
intent(in) :: lb
13881 real(RKC) ,
intent(in) :: ub
13882 real(RKC) ,
intent(in) :: abstol
13883 real(RKC) ,
intent(in) :: reltol
13884 type(GK51_type) ,
intent(in) :: qrule
13885 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13886 real(RKC) ,
intent(out) :: integral, abserr
13887 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13888 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13889 integer(IK) ,
intent(out) :: neval
13890 integer(IK) ,
intent(out) :: nint
13896 module function QAGP_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK4
13901 procedure(
real(RKC)) :: getFunc
13902 type(ninf_type) ,
intent(in) :: lb
13903 real(RKC) ,
intent(in) :: ub
13904 real(RKC) ,
intent(in) :: abstol
13905 real(RKC) ,
intent(in) :: reltol
13906 type(GK51_type) ,
intent(in) :: qrule
13907 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13908 real(RKC) ,
intent(out) :: integral, abserr
13909 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13910 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13911 integer(IK) ,
intent(out) :: neval
13912 integer(IK) ,
intent(out) :: nint
13918 module function QAGP_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK3
13923 procedure(
real(RKC)) :: getFunc
13924 type(ninf_type) ,
intent(in) :: lb
13925 real(RKC) ,
intent(in) :: ub
13926 real(RKC) ,
intent(in) :: abstol
13927 real(RKC) ,
intent(in) :: reltol
13928 type(GK51_type) ,
intent(in) :: qrule
13929 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13930 real(RKC) ,
intent(out) :: integral, abserr
13931 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13932 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13933 integer(IK) ,
intent(out) :: neval
13934 integer(IK) ,
intent(out) :: nint
13940 module function QAGP_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13942 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK2
13945 procedure(
real(RKC)) :: getFunc
13946 type(ninf_type) ,
intent(in) :: lb
13947 real(RKC) ,
intent(in) :: ub
13948 real(RKC) ,
intent(in) :: abstol
13949 real(RKC) ,
intent(in) :: reltol
13950 type(GK51_type) ,
intent(in) :: qrule
13951 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13952 real(RKC) ,
intent(out) :: integral, abserr
13953 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13954 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13955 integer(IK) ,
intent(out) :: neval
13956 integer(IK) ,
intent(out) :: nint
13962 module function QAGP_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK1
13967 procedure(
real(RKC)) :: getFunc
13968 type(ninf_type) ,
intent(in) :: lb
13969 real(RKC) ,
intent(in) :: ub
13970 real(RKC) ,
intent(in) :: abstol
13971 real(RKC) ,
intent(in) :: reltol
13972 type(GK51_type) ,
intent(in) :: qrule
13973 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13974 real(RKC) ,
intent(out) :: integral, abserr
13975 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13976 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13977 integer(IK) ,
intent(out) :: neval
13978 integer(IK) ,
intent(out) :: nint
13986 module function QAGP_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13988 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK5
13991 procedure(
real(RKC)) :: getFunc
13992 type(ninf_type) ,
intent(in) :: lb
13993 type(pinf_type) ,
intent(in) :: ub
13994 real(RKC) ,
intent(in) :: abstol
13995 real(RKC) ,
intent(in) :: reltol
13996 type(GK51_type) ,
intent(in) :: qrule
13997 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13998 real(RKC) ,
intent(out) :: integral, abserr
13999 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14000 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14001 integer(IK) ,
intent(out) :: neval
14002 integer(IK) ,
intent(out) :: nint
14008 module function QAGP_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14010 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK4
14013 procedure(
real(RKC)) :: getFunc
14014 type(ninf_type) ,
intent(in) :: lb
14015 type(pinf_type) ,
intent(in) :: ub
14016 real(RKC) ,
intent(in) :: abstol
14017 real(RKC) ,
intent(in) :: reltol
14018 type(GK51_type) ,
intent(in) :: qrule
14019 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14020 real(RKC) ,
intent(out) :: integral, abserr
14021 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14022 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14023 integer(IK) ,
intent(out) :: neval
14024 integer(IK) ,
intent(out) :: nint
14030 module function QAGP_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK3
14035 procedure(
real(RKC)) :: getFunc
14036 type(ninf_type) ,
intent(in) :: lb
14037 type(pinf_type) ,
intent(in) :: ub
14038 real(RKC) ,
intent(in) :: abstol
14039 real(RKC) ,
intent(in) :: reltol
14040 type(GK51_type) ,
intent(in) :: qrule
14041 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14042 real(RKC) ,
intent(out) :: integral, abserr
14043 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14044 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14045 integer(IK) ,
intent(out) :: neval
14046 integer(IK) ,
intent(out) :: nint
14052 module function QAGP_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14054 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK2
14057 procedure(
real(RKC)) :: getFunc
14058 type(ninf_type) ,
intent(in) :: lb
14059 type(pinf_type) ,
intent(in) :: ub
14060 real(RKC) ,
intent(in) :: abstol
14061 real(RKC) ,
intent(in) :: reltol
14062 type(GK51_type) ,
intent(in) :: qrule
14063 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14064 real(RKC) ,
intent(out) :: integral, abserr
14065 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14066 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14067 integer(IK) ,
intent(out) :: neval
14068 integer(IK) ,
intent(out) :: nint
14074 module function QAGP_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14076 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK1
14079 procedure(
real(RKC)) :: getFunc
14080 type(ninf_type) ,
intent(in) :: lb
14081 type(pinf_type) ,
intent(in) :: ub
14082 real(RKC) ,
intent(in) :: abstol
14083 real(RKC) ,
intent(in) :: reltol
14084 type(GK51_type) ,
intent(in) :: qrule
14085 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14086 real(RKC) ,
intent(out) :: integral, abserr
14087 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14088 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14089 integer(IK) ,
intent(out) :: neval
14090 integer(IK) ,
intent(out) :: nint
14106 module function QAGP_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14108 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK5
14111 procedure(
real(RKC)) :: getFunc
14112 real(RKC) ,
intent(in) :: lb
14113 real(RKC) ,
intent(in) :: ub
14114 real(RKC) ,
intent(in) :: abstol
14115 real(RKC) ,
intent(in) :: reltol
14116 type(GK61_type) ,
intent(in) :: qrule
14117 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14118 real(RKC) ,
intent(out) :: integral, abserr
14119 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14120 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14121 integer(IK) ,
intent(out) :: neval
14122 integer(IK) ,
intent(out) :: nint
14128 module function QAGP_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14130 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK4
14133 procedure(
real(RKC)) :: getFunc
14134 real(RKC) ,
intent(in) :: lb
14135 real(RKC) ,
intent(in) :: ub
14136 real(RKC) ,
intent(in) :: abstol
14137 real(RKC) ,
intent(in) :: reltol
14138 type(GK61_type) ,
intent(in) :: qrule
14139 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14140 real(RKC) ,
intent(out) :: integral, abserr
14141 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14142 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14143 integer(IK) ,
intent(out) :: neval
14144 integer(IK) ,
intent(out) :: nint
14150 module function QAGP_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14152 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK3
14155 procedure(
real(RKC)) :: getFunc
14156 real(RKC) ,
intent(in) :: lb
14157 real(RKC) ,
intent(in) :: ub
14158 real(RKC) ,
intent(in) :: abstol
14159 real(RKC) ,
intent(in) :: reltol
14160 type(GK61_type) ,
intent(in) :: qrule
14161 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14162 real(RKC) ,
intent(out) :: integral, abserr
14163 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14164 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14165 integer(IK) ,
intent(out) :: neval
14166 integer(IK) ,
intent(out) :: nint
14172 module function QAGP_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14174 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK2
14177 procedure(
real(RKC)) :: getFunc
14178 real(RKC) ,
intent(in) :: lb
14179 real(RKC) ,
intent(in) :: ub
14180 real(RKC) ,
intent(in) :: abstol
14181 real(RKC) ,
intent(in) :: reltol
14182 type(GK61_type) ,
intent(in) :: qrule
14183 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14184 real(RKC) ,
intent(out) :: integral, abserr
14185 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14186 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14187 integer(IK) ,
intent(out) :: neval
14188 integer(IK) ,
intent(out) :: nint
14194 module function QAGP_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14196 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK1
14199 procedure(
real(RKC)) :: getFunc
14200 real(RKC) ,
intent(in) :: lb
14201 real(RKC) ,
intent(in) :: ub
14202 real(RKC) ,
intent(in) :: abstol
14203 real(RKC) ,
intent(in) :: reltol
14204 type(GK61_type) ,
intent(in) :: qrule
14205 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14206 real(RKC) ,
intent(out) :: integral, abserr
14207 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14208 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14209 integer(IK) ,
intent(out) :: neval
14210 integer(IK) ,
intent(out) :: nint
14218 module function QAGP_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14220 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK5
14223 procedure(
real(RKC)) :: getFunc
14224 real(RKC) ,
intent(in) :: lb
14225 type(pinf_type) ,
intent(in) :: ub
14226 real(RKC) ,
intent(in) :: abstol
14227 real(RKC) ,
intent(in) :: reltol
14228 type(GK61_type) ,
intent(in) :: qrule
14229 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14230 real(RKC) ,
intent(out) :: integral, abserr
14231 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14232 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14233 integer(IK) ,
intent(out) :: neval
14234 integer(IK) ,
intent(out) :: nint
14240 module function QAGP_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14242 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK4
14245 procedure(
real(RKC)) :: getFunc
14246 real(RKC) ,
intent(in) :: lb
14247 type(pinf_type) ,
intent(in) :: ub
14248 real(RKC) ,
intent(in) :: abstol
14249 real(RKC) ,
intent(in) :: reltol
14250 type(GK61_type) ,
intent(in) :: qrule
14251 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14252 real(RKC) ,
intent(out) :: integral, abserr
14253 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14254 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14255 integer(IK) ,
intent(out) :: neval
14256 integer(IK) ,
intent(out) :: nint
14262 module function QAGP_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14264 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK3
14267 procedure(
real(RKC)) :: getFunc
14268 real(RKC) ,
intent(in) :: lb
14269 type(pinf_type) ,
intent(in) :: ub
14270 real(RKC) ,
intent(in) :: abstol
14271 real(RKC) ,
intent(in) :: reltol
14272 type(GK61_type) ,
intent(in) :: qrule
14273 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14274 real(RKC) ,
intent(out) :: integral, abserr
14275 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14276 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14277 integer(IK) ,
intent(out) :: neval
14278 integer(IK) ,
intent(out) :: nint
14284 module function QAGP_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14286 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK2
14289 procedure(
real(RKC)) :: getFunc
14290 real(RKC) ,
intent(in) :: lb
14291 type(pinf_type) ,
intent(in) :: ub
14292 real(RKC) ,
intent(in) :: abstol
14293 real(RKC) ,
intent(in) :: reltol
14294 type(GK61_type) ,
intent(in) :: qrule
14295 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14296 real(RKC) ,
intent(out) :: integral, abserr
14297 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14298 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14299 integer(IK) ,
intent(out) :: neval
14300 integer(IK) ,
intent(out) :: nint
14306 module function QAGP_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14308 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK1
14311 procedure(
real(RKC)) :: getFunc
14312 real(RKC) ,
intent(in) :: lb
14313 type(pinf_type) ,
intent(in) :: ub
14314 real(RKC) ,
intent(in) :: abstol
14315 real(RKC) ,
intent(in) :: reltol
14316 type(GK61_type) ,
intent(in) :: qrule
14317 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14318 real(RKC) ,
intent(out) :: integral, abserr
14319 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14320 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14321 integer(IK) ,
intent(out) :: neval
14322 integer(IK) ,
intent(out) :: nint
14330 module function QAGP_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14332 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK5
14335 procedure(
real(RKC)) :: getFunc
14336 type(ninf_type) ,
intent(in) :: lb
14337 real(RKC) ,
intent(in) :: ub
14338 real(RKC) ,
intent(in) :: abstol
14339 real(RKC) ,
intent(in) :: reltol
14340 type(GK61_type) ,
intent(in) :: qrule
14341 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14342 real(RKC) ,
intent(out) :: integral, abserr
14343 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14344 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14345 integer(IK) ,
intent(out) :: neval
14346 integer(IK) ,
intent(out) :: nint
14352 module function QAGP_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14354 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK4
14357 procedure(
real(RKC)) :: getFunc
14358 type(ninf_type) ,
intent(in) :: lb
14359 real(RKC) ,
intent(in) :: ub
14360 real(RKC) ,
intent(in) :: abstol
14361 real(RKC) ,
intent(in) :: reltol
14362 type(GK61_type) ,
intent(in) :: qrule
14363 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14364 real(RKC) ,
intent(out) :: integral, abserr
14365 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14366 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14367 integer(IK) ,
intent(out) :: neval
14368 integer(IK) ,
intent(out) :: nint
14374 module function QAGP_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14376 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK3
14379 procedure(
real(RKC)) :: getFunc
14380 type(ninf_type) ,
intent(in) :: lb
14381 real(RKC) ,
intent(in) :: ub
14382 real(RKC) ,
intent(in) :: abstol
14383 real(RKC) ,
intent(in) :: reltol
14384 type(GK61_type) ,
intent(in) :: qrule
14385 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14386 real(RKC) ,
intent(out) :: integral, abserr
14387 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14388 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14389 integer(IK) ,
intent(out) :: neval
14390 integer(IK) ,
intent(out) :: nint
14396 module function QAGP_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14398 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK2
14401 procedure(
real(RKC)) :: getFunc
14402 type(ninf_type) ,
intent(in) :: lb
14403 real(RKC) ,
intent(in) :: ub
14404 real(RKC) ,
intent(in) :: abstol
14405 real(RKC) ,
intent(in) :: reltol
14406 type(GK61_type) ,
intent(in) :: qrule
14407 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14408 real(RKC) ,
intent(out) :: integral, abserr
14409 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14410 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14411 integer(IK) ,
intent(out) :: neval
14412 integer(IK) ,
intent(out) :: nint
14418 module function QAGP_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14420 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK1
14423 procedure(
real(RKC)) :: getFunc
14424 type(ninf_type) ,
intent(in) :: lb
14425 real(RKC) ,
intent(in) :: ub
14426 real(RKC) ,
intent(in) :: abstol
14427 real(RKC) ,
intent(in) :: reltol
14428 type(GK61_type) ,
intent(in) :: qrule
14429 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14430 real(RKC) ,
intent(out) :: integral, abserr
14431 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14432 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14433 integer(IK) ,
intent(out) :: neval
14434 integer(IK) ,
intent(out) :: nint
14442 module function QAGP_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14444 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK5
14447 procedure(
real(RKC)) :: getFunc
14448 type(ninf_type) ,
intent(in) :: lb
14449 type(pinf_type) ,
intent(in) :: ub
14450 real(RKC) ,
intent(in) :: abstol
14451 real(RKC) ,
intent(in) :: reltol
14452 type(GK61_type) ,
intent(in) :: qrule
14453 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14454 real(RKC) ,
intent(out) :: integral, abserr
14455 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14456 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14457 integer(IK) ,
intent(out) :: neval
14458 integer(IK) ,
intent(out) :: nint
14464 module function QAGP_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14466 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK4
14469 procedure(
real(RKC)) :: getFunc
14470 type(ninf_type) ,
intent(in) :: lb
14471 type(pinf_type) ,
intent(in) :: ub
14472 real(RKC) ,
intent(in) :: abstol
14473 real(RKC) ,
intent(in) :: reltol
14474 type(GK61_type) ,
intent(in) :: qrule
14475 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14476 real(RKC) ,
intent(out) :: integral, abserr
14477 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14478 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14479 integer(IK) ,
intent(out) :: neval
14480 integer(IK) ,
intent(out) :: nint
14486 module function QAGP_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14488 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK3
14491 procedure(
real(RKC)) :: getFunc
14492 type(ninf_type) ,
intent(in) :: lb
14493 type(pinf_type) ,
intent(in) :: ub
14494 real(RKC) ,
intent(in) :: abstol
14495 real(RKC) ,
intent(in) :: reltol
14496 type(GK61_type) ,
intent(in) :: qrule
14497 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14498 real(RKC) ,
intent(out) :: integral, abserr
14499 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14500 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14501 integer(IK) ,
intent(out) :: neval
14502 integer(IK) ,
intent(out) :: nint
14508 module function QAGP_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14510 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK2
14513 procedure(
real(RKC)) :: getFunc
14514 type(ninf_type) ,
intent(in) :: lb
14515 type(pinf_type) ,
intent(in) :: ub
14516 real(RKC) ,
intent(in) :: abstol
14517 real(RKC) ,
intent(in) :: reltol
14518 type(GK61_type) ,
intent(in) :: qrule
14519 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14520 real(RKC) ,
intent(out) :: integral, abserr
14521 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14522 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14523 integer(IK) ,
intent(out) :: neval
14524 integer(IK) ,
intent(out) :: nint
14530 module function QAGP_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14532 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK1
14535 procedure(
real(RKC)) :: getFunc
14536 type(ninf_type) ,
intent(in) :: lb
14537 type(pinf_type) ,
intent(in) :: ub
14538 real(RKC) ,
intent(in) :: abstol
14539 real(RKC) ,
intent(in) :: reltol
14540 type(GK61_type) ,
intent(in) :: qrule
14541 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14542 real(RKC) ,
intent(out) :: integral, abserr
14543 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14544 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14545 integer(IK) ,
intent(out) :: neval
14546 integer(IK) ,
intent(out) :: nint
14562 module function QAGP_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14564 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK5
14567 procedure(
real(RKC)) :: getFunc
14568 real(RKC) ,
intent(in) :: lb
14569 real(RKC) ,
intent(in) :: ub
14570 real(RKC) ,
intent(in) :: abstol
14571 real(RKC) ,
intent(in) :: reltol
14572 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14573 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14574 real(RKC) ,
intent(out) :: integral, abserr
14575 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14576 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14577 integer(IK) ,
intent(out) :: neval
14578 integer(IK) ,
intent(out) :: nint
14584 module function QAGP_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14586 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK4
14589 procedure(
real(RKC)) :: getFunc
14590 real(RKC) ,
intent(in) :: lb
14591 real(RKC) ,
intent(in) :: ub
14592 real(RKC) ,
intent(in) :: abstol
14593 real(RKC) ,
intent(in) :: reltol
14594 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14595 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14596 real(RKC) ,
intent(out) :: integral, abserr
14597 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14598 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14599 integer(IK) ,
intent(out) :: neval
14600 integer(IK) ,
intent(out) :: nint
14606 module function QAGP_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14608 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK3
14611 procedure(
real(RKC)) :: getFunc
14612 real(RKC) ,
intent(in) :: lb
14613 real(RKC) ,
intent(in) :: ub
14614 real(RKC) ,
intent(in) :: abstol
14615 real(RKC) ,
intent(in) :: reltol
14616 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14617 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14618 real(RKC) ,
intent(out) :: integral, abserr
14619 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14620 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14621 integer(IK) ,
intent(out) :: neval
14622 integer(IK) ,
intent(out) :: nint
14628 module function QAGP_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14630 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK2
14633 procedure(
real(RKC)) :: getFunc
14634 real(RKC) ,
intent(in) :: lb
14635 real(RKC) ,
intent(in) :: ub
14636 real(RKC) ,
intent(in) :: abstol
14637 real(RKC) ,
intent(in) :: reltol
14638 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14639 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14640 real(RKC) ,
intent(out) :: integral, abserr
14641 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14642 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14643 integer(IK) ,
intent(out) :: neval
14644 integer(IK) ,
intent(out) :: nint
14650 module function QAGP_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14652 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK1
14655 procedure(
real(RKC)) :: getFunc
14656 real(RKC) ,
intent(in) :: lb
14657 real(RKC) ,
intent(in) :: ub
14658 real(RKC) ,
intent(in) :: abstol
14659 real(RKC) ,
intent(in) :: reltol
14660 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14661 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14662 real(RKC) ,
intent(out) :: integral, abserr
14663 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14664 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14665 integer(IK) ,
intent(out) :: neval
14666 integer(IK) ,
intent(out) :: nint
14674 module function QAGP_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14676 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK5
14679 procedure(
real(RKC)) :: getFunc
14680 real(RKC) ,
intent(in) :: lb
14681 type(pinf_type) ,
intent(in) :: ub
14682 real(RKC) ,
intent(in) :: abstol
14683 real(RKC) ,
intent(in) :: reltol
14684 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14685 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14686 real(RKC) ,
intent(out) :: integral, abserr
14687 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14688 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14689 integer(IK) ,
intent(out) :: neval
14690 integer(IK) ,
intent(out) :: nint
14696 module function QAGP_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14698 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK4
14701 procedure(
real(RKC)) :: getFunc
14702 real(RKC) ,
intent(in) :: lb
14703 type(pinf_type) ,
intent(in) :: ub
14704 real(RKC) ,
intent(in) :: abstol
14705 real(RKC) ,
intent(in) :: reltol
14706 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14707 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14708 real(RKC) ,
intent(out) :: integral, abserr
14709 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14710 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14711 integer(IK) ,
intent(out) :: neval
14712 integer(IK) ,
intent(out) :: nint
14718 module function QAGP_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK3
14723 procedure(
real(RKC)) :: getFunc
14724 real(RKC) ,
intent(in) :: lb
14725 type(pinf_type) ,
intent(in) :: ub
14726 real(RKC) ,
intent(in) :: abstol
14727 real(RKC) ,
intent(in) :: reltol
14728 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14729 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14730 real(RKC) ,
intent(out) :: integral, abserr
14731 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14732 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14733 integer(IK) ,
intent(out) :: neval
14734 integer(IK) ,
intent(out) :: nint
14740 module function QAGP_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14742 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK2
14745 procedure(
real(RKC)) :: getFunc
14746 real(RKC) ,
intent(in) :: lb
14747 type(pinf_type) ,
intent(in) :: ub
14748 real(RKC) ,
intent(in) :: abstol
14749 real(RKC) ,
intent(in) :: reltol
14750 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14751 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14752 real(RKC) ,
intent(out) :: integral, abserr
14753 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14754 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14755 integer(IK) ,
intent(out) :: neval
14756 integer(IK) ,
intent(out) :: nint
14762 module function QAGP_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14764 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK1
14767 procedure(
real(RKC)) :: getFunc
14768 real(RKC) ,
intent(in) :: lb
14769 type(pinf_type) ,
intent(in) :: ub
14770 real(RKC) ,
intent(in) :: abstol
14771 real(RKC) ,
intent(in) :: reltol
14772 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14773 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14774 real(RKC) ,
intent(out) :: integral, abserr
14775 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14776 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14777 integer(IK) ,
intent(out) :: neval
14778 integer(IK) ,
intent(out) :: nint
14786 module function QAGP_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14788 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK5
14791 procedure(
real(RKC)) :: getFunc
14792 type(ninf_type) ,
intent(in) :: lb
14793 real(RKC) ,
intent(in) :: ub
14794 real(RKC) ,
intent(in) :: abstol
14795 real(RKC) ,
intent(in) :: reltol
14796 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14797 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14798 real(RKC) ,
intent(out) :: integral, abserr
14799 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14800 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14801 integer(IK) ,
intent(out) :: neval
14802 integer(IK) ,
intent(out) :: nint
14808 module function QAGP_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK4
14813 procedure(
real(RKC)) :: getFunc
14814 type(ninf_type) ,
intent(in) :: lb
14815 real(RKC) ,
intent(in) :: ub
14816 real(RKC) ,
intent(in) :: abstol
14817 real(RKC) ,
intent(in) :: reltol
14818 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14819 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14820 real(RKC) ,
intent(out) :: integral, abserr
14821 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14822 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14823 integer(IK) ,
intent(out) :: neval
14824 integer(IK) ,
intent(out) :: nint
14830 module function QAGP_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK3
14835 procedure(
real(RKC)) :: getFunc
14836 type(ninf_type) ,
intent(in) :: lb
14837 real(RKC) ,
intent(in) :: ub
14838 real(RKC) ,
intent(in) :: abstol
14839 real(RKC) ,
intent(in) :: reltol
14840 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14841 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14842 real(RKC) ,
intent(out) :: integral, abserr
14843 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14844 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14845 integer(IK) ,
intent(out) :: neval
14846 integer(IK) ,
intent(out) :: nint
14852 module function QAGP_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14854 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK2
14857 procedure(
real(RKC)) :: getFunc
14858 type(ninf_type) ,
intent(in) :: lb
14859 real(RKC) ,
intent(in) :: ub
14860 real(RKC) ,
intent(in) :: abstol
14861 real(RKC) ,
intent(in) :: reltol
14862 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14863 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14864 real(RKC) ,
intent(out) :: integral, abserr
14865 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14866 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14867 integer(IK) ,
intent(out) :: neval
14868 integer(IK) ,
intent(out) :: nint
14874 module function QAGP_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK1
14879 procedure(
real(RKC)) :: getFunc
14880 type(ninf_type) ,
intent(in) :: lb
14881 real(RKC) ,
intent(in) :: ub
14882 real(RKC) ,
intent(in) :: abstol
14883 real(RKC) ,
intent(in) :: reltol
14884 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14885 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14886 real(RKC) ,
intent(out) :: integral, abserr
14887 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14888 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14889 integer(IK) ,
intent(out) :: neval
14890 integer(IK) ,
intent(out) :: nint
14898 module function QAGP_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14900 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK5
14903 procedure(
real(RKC)) :: getFunc
14904 type(ninf_type) ,
intent(in) :: lb
14905 type(pinf_type) ,
intent(in) :: ub
14906 real(RKC) ,
intent(in) :: abstol
14907 real(RKC) ,
intent(in) :: reltol
14908 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14909 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14910 real(RKC) ,
intent(out) :: integral, abserr
14911 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14912 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14913 integer(IK) ,
intent(out) :: neval
14914 integer(IK) ,
intent(out) :: nint
14920 module function QAGP_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK4
14925 procedure(
real(RKC)) :: getFunc
14926 type(ninf_type) ,
intent(in) :: lb
14927 type(pinf_type) ,
intent(in) :: ub
14928 real(RKC) ,
intent(in) :: abstol
14929 real(RKC) ,
intent(in) :: reltol
14930 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14931 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14932 real(RKC) ,
intent(out) :: integral, abserr
14933 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14934 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14935 integer(IK) ,
intent(out) :: neval
14936 integer(IK) ,
intent(out) :: nint
14942 module function QAGP_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK3
14947 procedure(
real(RKC)) :: getFunc
14948 type(ninf_type) ,
intent(in) :: lb
14949 type(pinf_type) ,
intent(in) :: ub
14950 real(RKC) ,
intent(in) :: abstol
14951 real(RKC) ,
intent(in) :: reltol
14952 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14953 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14954 real(RKC) ,
intent(out) :: integral, abserr
14955 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14956 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14957 integer(IK) ,
intent(out) :: neval
14958 integer(IK) ,
intent(out) :: nint
14964 module function QAGP_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14966 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK2
14969 procedure(
real(RKC)) :: getFunc
14970 type(ninf_type) ,
intent(in) :: lb
14971 type(pinf_type) ,
intent(in) :: ub
14972 real(RKC) ,
intent(in) :: abstol
14973 real(RKC) ,
intent(in) :: reltol
14974 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14975 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14976 real(RKC) ,
intent(out) :: integral, abserr
14977 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14978 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14979 integer(IK) ,
intent(out) :: neval
14980 integer(IK) ,
intent(out) :: nint
14986 module function QAGP_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14988 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK1
14991 procedure(
real(RKC)) :: getFunc
14992 type(ninf_type) ,
intent(in) :: lb
14993 type(pinf_type) ,
intent(in) :: ub
14994 real(RKC) ,
intent(in) :: abstol
14995 real(RKC) ,
intent(in) :: reltol
14996 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14997 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14998 real(RKC) ,
intent(out) :: integral, abserr
14999 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15000 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15001 integer(IK) ,
intent(out) :: neval
15002 integer(IK) ,
intent(out) :: nint
15020 module function QAWC_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15022 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK5
15025 procedure(
real(RKC)) :: getFunc
15026 real(RKC) ,
intent(in) :: lb
15027 real(RKC) ,
intent(in) :: ub
15028 real(RKC) ,
intent(in) :: abstol
15029 real(RKC) ,
intent(in) :: reltol
15030 type(GK15_type) ,
intent(in) :: qrule
15031 type(wcauchy_type) ,
intent(in) :: help
15032 real(RKC) ,
intent(out) :: integral, abserr
15033 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15034 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15035 integer(IK) ,
intent(out) :: neval
15036 integer(IK) ,
intent(out) :: nint
15042 module function QAWC_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15044 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK4
15047 procedure(
real(RKC)) :: getFunc
15048 real(RKC) ,
intent(in) :: lb
15049 real(RKC) ,
intent(in) :: ub
15050 real(RKC) ,
intent(in) :: abstol
15051 real(RKC) ,
intent(in) :: reltol
15052 type(GK15_type) ,
intent(in) :: qrule
15053 type(wcauchy_type) ,
intent(in) :: help
15054 real(RKC) ,
intent(out) :: integral, abserr
15055 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15056 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15057 integer(IK) ,
intent(out) :: neval
15058 integer(IK) ,
intent(out) :: nint
15064 module function QAWC_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15066 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK3
15069 procedure(
real(RKC)) :: getFunc
15070 real(RKC) ,
intent(in) :: lb
15071 real(RKC) ,
intent(in) :: ub
15072 real(RKC) ,
intent(in) :: abstol
15073 real(RKC) ,
intent(in) :: reltol
15074 type(GK15_type) ,
intent(in) :: qrule
15075 type(wcauchy_type) ,
intent(in) :: help
15076 real(RKC) ,
intent(out) :: integral, abserr
15077 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15078 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15079 integer(IK) ,
intent(out) :: neval
15080 integer(IK) ,
intent(out) :: nint
15086 module function QAWC_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15088 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK2
15091 procedure(
real(RKC)) :: getFunc
15092 real(RKC) ,
intent(in) :: lb
15093 real(RKC) ,
intent(in) :: ub
15094 real(RKC) ,
intent(in) :: abstol
15095 real(RKC) ,
intent(in) :: reltol
15096 type(GK15_type) ,
intent(in) :: qrule
15097 type(wcauchy_type) ,
intent(in) :: help
15098 real(RKC) ,
intent(out) :: integral, abserr
15099 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15100 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15101 integer(IK) ,
intent(out) :: neval
15102 integer(IK) ,
intent(out) :: nint
15108 module function QAWC_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15110 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK1
15113 procedure(
real(RKC)) :: getFunc
15114 real(RKC) ,
intent(in) :: lb
15115 real(RKC) ,
intent(in) :: ub
15116 real(RKC) ,
intent(in) :: abstol
15117 real(RKC) ,
intent(in) :: reltol
15118 type(GK15_type) ,
intent(in) :: qrule
15119 type(wcauchy_type) ,
intent(in) :: help
15120 real(RKC) ,
intent(out) :: integral, abserr
15121 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15122 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15123 integer(IK) ,
intent(out) :: neval
15124 integer(IK) ,
intent(out) :: nint
15132 module function QAWC_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15134 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK5
15137 procedure(
real(RKC)) :: getFunc
15138 real(RKC) ,
intent(in) :: lb
15139 real(RKC) ,
intent(in) :: ub
15140 real(RKC) ,
intent(in) :: abstol
15141 real(RKC) ,
intent(in) :: reltol
15142 type(GK21_type) ,
intent(in) :: qrule
15143 type(wcauchy_type) ,
intent(in) :: help
15144 real(RKC) ,
intent(out) :: integral, abserr
15145 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15146 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15147 integer(IK) ,
intent(out) :: neval
15148 integer(IK) ,
intent(out) :: nint
15154 module function QAWC_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15156 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK4
15159 procedure(
real(RKC)) :: getFunc
15160 real(RKC) ,
intent(in) :: lb
15161 real(RKC) ,
intent(in) :: ub
15162 real(RKC) ,
intent(in) :: abstol
15163 real(RKC) ,
intent(in) :: reltol
15164 type(GK21_type) ,
intent(in) :: qrule
15165 type(wcauchy_type) ,
intent(in) :: help
15166 real(RKC) ,
intent(out) :: integral, abserr
15167 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15168 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15169 integer(IK) ,
intent(out) :: neval
15170 integer(IK) ,
intent(out) :: nint
15176 module function QAWC_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15178 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK3
15181 procedure(
real(RKC)) :: getFunc
15182 real(RKC) ,
intent(in) :: lb
15183 real(RKC) ,
intent(in) :: ub
15184 real(RKC) ,
intent(in) :: abstol
15185 real(RKC) ,
intent(in) :: reltol
15186 type(GK21_type) ,
intent(in) :: qrule
15187 type(wcauchy_type) ,
intent(in) :: help
15188 real(RKC) ,
intent(out) :: integral, abserr
15189 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15190 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15191 integer(IK) ,
intent(out) :: neval
15192 integer(IK) ,
intent(out) :: nint
15198 module function QAWC_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15200 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK2
15203 procedure(
real(RKC)) :: getFunc
15204 real(RKC) ,
intent(in) :: lb
15205 real(RKC) ,
intent(in) :: ub
15206 real(RKC) ,
intent(in) :: abstol
15207 real(RKC) ,
intent(in) :: reltol
15208 type(GK21_type) ,
intent(in) :: qrule
15209 type(wcauchy_type) ,
intent(in) :: help
15210 real(RKC) ,
intent(out) :: integral, abserr
15211 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15212 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15213 integer(IK) ,
intent(out) :: neval
15214 integer(IK) ,
intent(out) :: nint
15220 module function QAWC_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15222 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK1
15225 procedure(
real(RKC)) :: getFunc
15226 real(RKC) ,
intent(in) :: lb
15227 real(RKC) ,
intent(in) :: ub
15228 real(RKC) ,
intent(in) :: abstol
15229 real(RKC) ,
intent(in) :: reltol
15230 type(GK21_type) ,
intent(in) :: qrule
15231 type(wcauchy_type) ,
intent(in) :: help
15232 real(RKC) ,
intent(out) :: integral, abserr
15233 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15234 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15235 integer(IK) ,
intent(out) :: neval
15236 integer(IK) ,
intent(out) :: nint
15244 module function QAWC_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15246 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK5
15249 procedure(
real(RKC)) :: getFunc
15250 real(RKC) ,
intent(in) :: lb
15251 real(RKC) ,
intent(in) :: ub
15252 real(RKC) ,
intent(in) :: abstol
15253 real(RKC) ,
intent(in) :: reltol
15254 type(GK31_type) ,
intent(in) :: qrule
15255 type(wcauchy_type) ,
intent(in) :: help
15256 real(RKC) ,
intent(out) :: integral, abserr
15257 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15258 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15259 integer(IK) ,
intent(out) :: neval
15260 integer(IK) ,
intent(out) :: nint
15266 module function QAWC_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15268 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK4
15271 procedure(
real(RKC)) :: getFunc
15272 real(RKC) ,
intent(in) :: lb
15273 real(RKC) ,
intent(in) :: ub
15274 real(RKC) ,
intent(in) :: abstol
15275 real(RKC) ,
intent(in) :: reltol
15276 type(GK31_type) ,
intent(in) :: qrule
15277 type(wcauchy_type) ,
intent(in) :: help
15278 real(RKC) ,
intent(out) :: integral, abserr
15279 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15280 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15281 integer(IK) ,
intent(out) :: neval
15282 integer(IK) ,
intent(out) :: nint
15288 module function QAWC_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15290 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK3
15293 procedure(
real(RKC)) :: getFunc
15294 real(RKC) ,
intent(in) :: lb
15295 real(RKC) ,
intent(in) :: ub
15296 real(RKC) ,
intent(in) :: abstol
15297 real(RKC) ,
intent(in) :: reltol
15298 type(GK31_type) ,
intent(in) :: qrule
15299 type(wcauchy_type) ,
intent(in) :: help
15300 real(RKC) ,
intent(out) :: integral, abserr
15301 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15302 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15303 integer(IK) ,
intent(out) :: neval
15304 integer(IK) ,
intent(out) :: nint
15310 module function QAWC_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15312 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK2
15315 procedure(
real(RKC)) :: getFunc
15316 real(RKC) ,
intent(in) :: lb
15317 real(RKC) ,
intent(in) :: ub
15318 real(RKC) ,
intent(in) :: abstol
15319 real(RKC) ,
intent(in) :: reltol
15320 type(GK31_type) ,
intent(in) :: qrule
15321 type(wcauchy_type) ,
intent(in) :: help
15322 real(RKC) ,
intent(out) :: integral, abserr
15323 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15324 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15325 integer(IK) ,
intent(out) :: neval
15326 integer(IK) ,
intent(out) :: nint
15332 module function QAWC_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15334 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK1
15337 procedure(
real(RKC)) :: getFunc
15338 real(RKC) ,
intent(in) :: lb
15339 real(RKC) ,
intent(in) :: ub
15340 real(RKC) ,
intent(in) :: abstol
15341 real(RKC) ,
intent(in) :: reltol
15342 type(GK31_type) ,
intent(in) :: qrule
15343 type(wcauchy_type) ,
intent(in) :: help
15344 real(RKC) ,
intent(out) :: integral, abserr
15345 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15346 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15347 integer(IK) ,
intent(out) :: neval
15348 integer(IK) ,
intent(out) :: nint
15356 module function QAWC_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15358 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK5
15361 procedure(
real(RKC)) :: getFunc
15362 real(RKC) ,
intent(in) :: lb
15363 real(RKC) ,
intent(in) :: ub
15364 real(RKC) ,
intent(in) :: abstol
15365 real(RKC) ,
intent(in) :: reltol
15366 type(GK41_type) ,
intent(in) :: qrule
15367 type(wcauchy_type) ,
intent(in) :: help
15368 real(RKC) ,
intent(out) :: integral, abserr
15369 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15370 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15371 integer(IK) ,
intent(out) :: neval
15372 integer(IK) ,
intent(out) :: nint
15378 module function QAWC_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15380 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK4
15383 procedure(
real(RKC)) :: getFunc
15384 real(RKC) ,
intent(in) :: lb
15385 real(RKC) ,
intent(in) :: ub
15386 real(RKC) ,
intent(in) :: abstol
15387 real(RKC) ,
intent(in) :: reltol
15388 type(GK41_type) ,
intent(in) :: qrule
15389 type(wcauchy_type) ,
intent(in) :: help
15390 real(RKC) ,
intent(out) :: integral, abserr
15391 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15392 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15393 integer(IK) ,
intent(out) :: neval
15394 integer(IK) ,
intent(out) :: nint
15400 module function QAWC_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15402 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK3
15405 procedure(
real(RKC)) :: getFunc
15406 real(RKC) ,
intent(in) :: lb
15407 real(RKC) ,
intent(in) :: ub
15408 real(RKC) ,
intent(in) :: abstol
15409 real(RKC) ,
intent(in) :: reltol
15410 type(GK41_type) ,
intent(in) :: qrule
15411 type(wcauchy_type) ,
intent(in) :: help
15412 real(RKC) ,
intent(out) :: integral, abserr
15413 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15414 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15415 integer(IK) ,
intent(out) :: neval
15416 integer(IK) ,
intent(out) :: nint
15422 module function QAWC_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15424 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK2
15427 procedure(
real(RKC)) :: getFunc
15428 real(RKC) ,
intent(in) :: lb
15429 real(RKC) ,
intent(in) :: ub
15430 real(RKC) ,
intent(in) :: abstol
15431 real(RKC) ,
intent(in) :: reltol
15432 type(GK41_type) ,
intent(in) :: qrule
15433 type(wcauchy_type) ,
intent(in) :: help
15434 real(RKC) ,
intent(out) :: integral, abserr
15435 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15436 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15437 integer(IK) ,
intent(out) :: neval
15438 integer(IK) ,
intent(out) :: nint
15444 module function QAWC_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15446 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK1
15449 procedure(
real(RKC)) :: getFunc
15450 real(RKC) ,
intent(in) :: lb
15451 real(RKC) ,
intent(in) :: ub
15452 real(RKC) ,
intent(in) :: abstol
15453 real(RKC) ,
intent(in) :: reltol
15454 type(GK41_type) ,
intent(in) :: qrule
15455 type(wcauchy_type) ,
intent(in) :: help
15456 real(RKC) ,
intent(out) :: integral, abserr
15457 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15458 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15459 integer(IK) ,
intent(out) :: neval
15460 integer(IK) ,
intent(out) :: nint
15468 module function QAWC_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15470 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK5
15473 procedure(
real(RKC)) :: getFunc
15474 real(RKC) ,
intent(in) :: lb
15475 real(RKC) ,
intent(in) :: ub
15476 real(RKC) ,
intent(in) :: abstol
15477 real(RKC) ,
intent(in) :: reltol
15478 type(GK51_type) ,
intent(in) :: qrule
15479 type(wcauchy_type) ,
intent(in) :: help
15480 real(RKC) ,
intent(out) :: integral, abserr
15481 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15482 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15483 integer(IK) ,
intent(out) :: neval
15484 integer(IK) ,
intent(out) :: nint
15490 module function QAWC_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15492 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK4
15495 procedure(
real(RKC)) :: getFunc
15496 real(RKC) ,
intent(in) :: lb
15497 real(RKC) ,
intent(in) :: ub
15498 real(RKC) ,
intent(in) :: abstol
15499 real(RKC) ,
intent(in) :: reltol
15500 type(GK51_type) ,
intent(in) :: qrule
15501 type(wcauchy_type) ,
intent(in) :: help
15502 real(RKC) ,
intent(out) :: integral, abserr
15503 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15504 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15505 integer(IK) ,
intent(out) :: neval
15506 integer(IK) ,
intent(out) :: nint
15512 module function QAWC_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15514 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK3
15517 procedure(
real(RKC)) :: getFunc
15518 real(RKC) ,
intent(in) :: lb
15519 real(RKC) ,
intent(in) :: ub
15520 real(RKC) ,
intent(in) :: abstol
15521 real(RKC) ,
intent(in) :: reltol
15522 type(GK51_type) ,
intent(in) :: qrule
15523 type(wcauchy_type) ,
intent(in) :: help
15524 real(RKC) ,
intent(out) :: integral, abserr
15525 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15526 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15527 integer(IK) ,
intent(out) :: neval
15528 integer(IK) ,
intent(out) :: nint
15534 module function QAWC_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15536 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK2
15539 procedure(
real(RKC)) :: getFunc
15540 real(RKC) ,
intent(in) :: lb
15541 real(RKC) ,
intent(in) :: ub
15542 real(RKC) ,
intent(in) :: abstol
15543 real(RKC) ,
intent(in) :: reltol
15544 type(GK51_type) ,
intent(in) :: qrule
15545 type(wcauchy_type) ,
intent(in) :: help
15546 real(RKC) ,
intent(out) :: integral, abserr
15547 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15548 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15549 integer(IK) ,
intent(out) :: neval
15550 integer(IK) ,
intent(out) :: nint
15556 module function QAWC_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15558 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK1
15561 procedure(
real(RKC)) :: getFunc
15562 real(RKC) ,
intent(in) :: lb
15563 real(RKC) ,
intent(in) :: ub
15564 real(RKC) ,
intent(in) :: abstol
15565 real(RKC) ,
intent(in) :: reltol
15566 type(GK51_type) ,
intent(in) :: qrule
15567 type(wcauchy_type) ,
intent(in) :: help
15568 real(RKC) ,
intent(out) :: integral, abserr
15569 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15570 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15571 integer(IK) ,
intent(out) :: neval
15572 integer(IK) ,
intent(out) :: nint
15580 module function QAWC_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15582 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK5
15585 procedure(
real(RKC)) :: getFunc
15586 real(RKC) ,
intent(in) :: lb
15587 real(RKC) ,
intent(in) :: ub
15588 real(RKC) ,
intent(in) :: abstol
15589 real(RKC) ,
intent(in) :: reltol
15590 type(GK61_type) ,
intent(in) :: qrule
15591 type(wcauchy_type) ,
intent(in) :: help
15592 real(RKC) ,
intent(out) :: integral, abserr
15593 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15594 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15595 integer(IK) ,
intent(out) :: neval
15596 integer(IK) ,
intent(out) :: nint
15602 module function QAWC_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15604 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK4
15607 procedure(
real(RKC)) :: getFunc
15608 real(RKC) ,
intent(in) :: lb
15609 real(RKC) ,
intent(in) :: ub
15610 real(RKC) ,
intent(in) :: abstol
15611 real(RKC) ,
intent(in) :: reltol
15612 type(GK61_type) ,
intent(in) :: qrule
15613 type(wcauchy_type) ,
intent(in) :: help
15614 real(RKC) ,
intent(out) :: integral, abserr
15615 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15616 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15617 integer(IK) ,
intent(out) :: neval
15618 integer(IK) ,
intent(out) :: nint
15624 module function QAWC_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15626 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK3
15629 procedure(
real(RKC)) :: getFunc
15630 real(RKC) ,
intent(in) :: lb
15631 real(RKC) ,
intent(in) :: ub
15632 real(RKC) ,
intent(in) :: abstol
15633 real(RKC) ,
intent(in) :: reltol
15634 type(GK61_type) ,
intent(in) :: qrule
15635 type(wcauchy_type) ,
intent(in) :: help
15636 real(RKC) ,
intent(out) :: integral, abserr
15637 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15638 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15639 integer(IK) ,
intent(out) :: neval
15640 integer(IK) ,
intent(out) :: nint
15646 module function QAWC_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15648 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK2
15651 procedure(
real(RKC)) :: getFunc
15652 real(RKC) ,
intent(in) :: lb
15653 real(RKC) ,
intent(in) :: ub
15654 real(RKC) ,
intent(in) :: abstol
15655 real(RKC) ,
intent(in) :: reltol
15656 type(GK61_type) ,
intent(in) :: qrule
15657 type(wcauchy_type) ,
intent(in) :: help
15658 real(RKC) ,
intent(out) :: integral, abserr
15659 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15660 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15661 integer(IK) ,
intent(out) :: neval
15662 integer(IK) ,
intent(out) :: nint
15668 module function QAWC_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15670 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK1
15673 procedure(
real(RKC)) :: getFunc
15674 real(RKC) ,
intent(in) :: lb
15675 real(RKC) ,
intent(in) :: ub
15676 real(RKC) ,
intent(in) :: abstol
15677 real(RKC) ,
intent(in) :: reltol
15678 type(GK61_type) ,
intent(in) :: qrule
15679 type(wcauchy_type) ,
intent(in) :: help
15680 real(RKC) ,
intent(out) :: integral, abserr
15681 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15682 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15683 integer(IK) ,
intent(out) :: neval
15684 integer(IK) ,
intent(out) :: nint
15692 module function QAWC_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15694 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK5
15697 procedure(
real(RKC)) :: getFunc
15698 real(RKC) ,
intent(in) :: lb
15699 real(RKC) ,
intent(in) :: ub
15700 real(RKC) ,
intent(in) :: abstol
15701 real(RKC) ,
intent(in) :: reltol
15702 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15703 type(wcauchy_type) ,
intent(in) :: help
15704 real(RKC) ,
intent(out) :: integral, abserr
15705 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15706 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15707 integer(IK) ,
intent(out) :: neval
15708 integer(IK) ,
intent(out) :: nint
15714 module function QAWC_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15716 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK4
15719 procedure(
real(RKC)) :: getFunc
15720 real(RKC) ,
intent(in) :: lb
15721 real(RKC) ,
intent(in) :: ub
15722 real(RKC) ,
intent(in) :: abstol
15723 real(RKC) ,
intent(in) :: reltol
15724 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15725 type(wcauchy_type) ,
intent(in) :: help
15726 real(RKC) ,
intent(out) :: integral, abserr
15727 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15728 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15729 integer(IK) ,
intent(out) :: neval
15730 integer(IK) ,
intent(out) :: nint
15736 module function QAWC_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15738 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK3
15741 procedure(
real(RKC)) :: getFunc
15742 real(RKC) ,
intent(in) :: lb
15743 real(RKC) ,
intent(in) :: ub
15744 real(RKC) ,
intent(in) :: abstol
15745 real(RKC) ,
intent(in) :: reltol
15746 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15747 type(wcauchy_type) ,
intent(in) :: help
15748 real(RKC) ,
intent(out) :: integral, abserr
15749 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15750 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15751 integer(IK) ,
intent(out) :: neval
15752 integer(IK) ,
intent(out) :: nint
15758 module function QAWC_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15760 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK2
15763 procedure(
real(RKC)) :: getFunc
15764 real(RKC) ,
intent(in) :: lb
15765 real(RKC) ,
intent(in) :: ub
15766 real(RKC) ,
intent(in) :: abstol
15767 real(RKC) ,
intent(in) :: reltol
15768 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15769 type(wcauchy_type) ,
intent(in) :: help
15770 real(RKC) ,
intent(out) :: integral, abserr
15771 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15772 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15773 integer(IK) ,
intent(out) :: neval
15774 integer(IK) ,
intent(out) :: nint
15780 module function QAWC_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15782 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK1
15785 procedure(
real(RKC)) :: getFunc
15786 real(RKC) ,
intent(in) :: lb
15787 real(RKC) ,
intent(in) :: ub
15788 real(RKC) ,
intent(in) :: abstol
15789 real(RKC) ,
intent(in) :: reltol
15790 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15791 type(wcauchy_type) ,
intent(in) :: help
15792 real(RKC) ,
intent(out) :: integral, abserr
15793 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15794 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15795 integer(IK) ,
intent(out) :: neval
15796 integer(IK) ,
intent(out) :: nint
15812 module function QAWC_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15814 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK5
15817 procedure(
real(RKC)) :: getFunc
15818 real(RKC) ,
intent(in) :: lb
15819 type(pinf_type) ,
intent(in) :: ub
15820 real(RKC) ,
intent(in) :: abstol
15821 real(RKC) ,
intent(in) :: reltol
15822 type(GK15_type) ,
intent(in) :: qrule
15823 type(wcauchy_type) ,
intent(in) :: help
15824 real(RKC) ,
intent(out) :: integral, abserr
15825 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15826 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15827 integer(IK) ,
intent(out) :: neval
15828 integer(IK) ,
intent(out) :: nint
15834 module function QAWC_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15836 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK4
15839 procedure(
real(RKC)) :: getFunc
15840 real(RKC) ,
intent(in) :: lb
15841 type(pinf_type) ,
intent(in) :: ub
15842 real(RKC) ,
intent(in) :: abstol
15843 real(RKC) ,
intent(in) :: reltol
15844 type(GK15_type) ,
intent(in) :: qrule
15845 type(wcauchy_type) ,
intent(in) :: help
15846 real(RKC) ,
intent(out) :: integral, abserr
15847 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15848 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15849 integer(IK) ,
intent(out) :: neval
15850 integer(IK) ,
intent(out) :: nint
15856 module function QAWC_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15858 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK3
15861 procedure(
real(RKC)) :: getFunc
15862 real(RKC) ,
intent(in) :: lb
15863 type(pinf_type) ,
intent(in) :: ub
15864 real(RKC) ,
intent(in) :: abstol
15865 real(RKC) ,
intent(in) :: reltol
15866 type(GK15_type) ,
intent(in) :: qrule
15867 type(wcauchy_type) ,
intent(in) :: help
15868 real(RKC) ,
intent(out) :: integral, abserr
15869 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15870 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15871 integer(IK) ,
intent(out) :: neval
15872 integer(IK) ,
intent(out) :: nint
15878 module function QAWC_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15880 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK2
15883 procedure(
real(RKC)) :: getFunc
15884 real(RKC) ,
intent(in) :: lb
15885 type(pinf_type) ,
intent(in) :: ub
15886 real(RKC) ,
intent(in) :: abstol
15887 real(RKC) ,
intent(in) :: reltol
15888 type(GK15_type) ,
intent(in) :: qrule
15889 type(wcauchy_type) ,
intent(in) :: help
15890 real(RKC) ,
intent(out) :: integral, abserr
15891 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15892 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15893 integer(IK) ,
intent(out) :: neval
15894 integer(IK) ,
intent(out) :: nint
15900 module function QAWC_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15902 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK1
15905 procedure(
real(RKC)) :: getFunc
15906 real(RKC) ,
intent(in) :: lb
15907 type(pinf_type) ,
intent(in) :: ub
15908 real(RKC) ,
intent(in) :: abstol
15909 real(RKC) ,
intent(in) :: reltol
15910 type(GK15_type) ,
intent(in) :: qrule
15911 type(wcauchy_type) ,
intent(in) :: help
15912 real(RKC) ,
intent(out) :: integral, abserr
15913 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15914 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15915 integer(IK) ,
intent(out) :: neval
15916 integer(IK) ,
intent(out) :: nint
15924 module function QAWC_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15926 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK5
15929 procedure(
real(RKC)) :: getFunc
15930 real(RKC) ,
intent(in) :: lb
15931 type(pinf_type) ,
intent(in) :: ub
15932 real(RKC) ,
intent(in) :: abstol
15933 real(RKC) ,
intent(in) :: reltol
15934 type(GK21_type) ,
intent(in) :: qrule
15935 type(wcauchy_type) ,
intent(in) :: help
15936 real(RKC) ,
intent(out) :: integral, abserr
15937 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15938 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15939 integer(IK) ,
intent(out) :: neval
15940 integer(IK) ,
intent(out) :: nint
15946 module function QAWC_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15948 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK4
15951 procedure(
real(RKC)) :: getFunc
15952 real(RKC) ,
intent(in) :: lb
15953 type(pinf_type) ,
intent(in) :: ub
15954 real(RKC) ,
intent(in) :: abstol
15955 real(RKC) ,
intent(in) :: reltol
15956 type(GK21_type) ,
intent(in) :: qrule
15957 type(wcauchy_type) ,
intent(in) :: help
15958 real(RKC) ,
intent(out) :: integral, abserr
15959 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15960 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15961 integer(IK) ,
intent(out) :: neval
15962 integer(IK) ,
intent(out) :: nint
15968 module function QAWC_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15970 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK3
15973 procedure(
real(RKC)) :: getFunc
15974 real(RKC) ,
intent(in) :: lb
15975 type(pinf_type) ,
intent(in) :: ub
15976 real(RKC) ,
intent(in) :: abstol
15977 real(RKC) ,
intent(in) :: reltol
15978 type(GK21_type) ,
intent(in) :: qrule
15979 type(wcauchy_type) ,
intent(in) :: help
15980 real(RKC) ,
intent(out) :: integral, abserr
15981 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15982 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15983 integer(IK) ,
intent(out) :: neval
15984 integer(IK) ,
intent(out) :: nint
15990 module function QAWC_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15992 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK2
15995 procedure(
real(RKC)) :: getFunc
15996 real(RKC) ,
intent(in) :: lb
15997 type(pinf_type) ,
intent(in) :: ub
15998 real(RKC) ,
intent(in) :: abstol
15999 real(RKC) ,
intent(in) :: reltol
16000 type(GK21_type) ,
intent(in) :: qrule
16001 type(wcauchy_type) ,
intent(in) :: help
16002 real(RKC) ,
intent(out) :: integral, abserr
16003 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16004 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16005 integer(IK) ,
intent(out) :: neval
16006 integer(IK) ,
intent(out) :: nint
16012 module function QAWC_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16014 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK1
16017 procedure(
real(RKC)) :: getFunc
16018 real(RKC) ,
intent(in) :: lb
16019 type(pinf_type) ,
intent(in) :: ub
16020 real(RKC) ,
intent(in) :: abstol
16021 real(RKC) ,
intent(in) :: reltol
16022 type(GK21_type) ,
intent(in) :: qrule
16023 type(wcauchy_type) ,
intent(in) :: help
16024 real(RKC) ,
intent(out) :: integral, abserr
16025 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16026 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16027 integer(IK) ,
intent(out) :: neval
16028 integer(IK) ,
intent(out) :: nint
16036 module function QAWC_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16038 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK5
16041 procedure(
real(RKC)) :: getFunc
16042 real(RKC) ,
intent(in) :: lb
16043 type(pinf_type) ,
intent(in) :: ub
16044 real(RKC) ,
intent(in) :: abstol
16045 real(RKC) ,
intent(in) :: reltol
16046 type(GK31_type) ,
intent(in) :: qrule
16047 type(wcauchy_type) ,
intent(in) :: help
16048 real(RKC) ,
intent(out) :: integral, abserr
16049 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16050 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16051 integer(IK) ,
intent(out) :: neval
16052 integer(IK) ,
intent(out) :: nint
16058 module function QAWC_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16060 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK4
16063 procedure(
real(RKC)) :: getFunc
16064 real(RKC) ,
intent(in) :: lb
16065 type(pinf_type) ,
intent(in) :: ub
16066 real(RKC) ,
intent(in) :: abstol
16067 real(RKC) ,
intent(in) :: reltol
16068 type(GK31_type) ,
intent(in) :: qrule
16069 type(wcauchy_type) ,
intent(in) :: help
16070 real(RKC) ,
intent(out) :: integral, abserr
16071 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16072 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16073 integer(IK) ,
intent(out) :: neval
16074 integer(IK) ,
intent(out) :: nint
16080 module function QAWC_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16082 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK3
16085 procedure(
real(RKC)) :: getFunc
16086 real(RKC) ,
intent(in) :: lb
16087 type(pinf_type) ,
intent(in) :: ub
16088 real(RKC) ,
intent(in) :: abstol
16089 real(RKC) ,
intent(in) :: reltol
16090 type(GK31_type) ,
intent(in) :: qrule
16091 type(wcauchy_type) ,
intent(in) :: help
16092 real(RKC) ,
intent(out) :: integral, abserr
16093 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16094 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16095 integer(IK) ,
intent(out) :: neval
16096 integer(IK) ,
intent(out) :: nint
16102 module function QAWC_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16104 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK2
16107 procedure(
real(RKC)) :: getFunc
16108 real(RKC) ,
intent(in) :: lb
16109 type(pinf_type) ,
intent(in) :: ub
16110 real(RKC) ,
intent(in) :: abstol
16111 real(RKC) ,
intent(in) :: reltol
16112 type(GK31_type) ,
intent(in) :: qrule
16113 type(wcauchy_type) ,
intent(in) :: help
16114 real(RKC) ,
intent(out) :: integral, abserr
16115 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16116 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16117 integer(IK) ,
intent(out) :: neval
16118 integer(IK) ,
intent(out) :: nint
16124 module function QAWC_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16126 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK1
16129 procedure(
real(RKC)) :: getFunc
16130 real(RKC) ,
intent(in) :: lb
16131 type(pinf_type) ,
intent(in) :: ub
16132 real(RKC) ,
intent(in) :: abstol
16133 real(RKC) ,
intent(in) :: reltol
16134 type(GK31_type) ,
intent(in) :: qrule
16135 type(wcauchy_type) ,
intent(in) :: help
16136 real(RKC) ,
intent(out) :: integral, abserr
16137 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16138 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16139 integer(IK) ,
intent(out) :: neval
16140 integer(IK) ,
intent(out) :: nint
16148 module function QAWC_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16150 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK5
16153 procedure(
real(RKC)) :: getFunc
16154 real(RKC) ,
intent(in) :: lb
16155 type(pinf_type) ,
intent(in) :: ub
16156 real(RKC) ,
intent(in) :: abstol
16157 real(RKC) ,
intent(in) :: reltol
16158 type(GK41_type) ,
intent(in) :: qrule
16159 type(wcauchy_type) ,
intent(in) :: help
16160 real(RKC) ,
intent(out) :: integral, abserr
16161 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16162 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16163 integer(IK) ,
intent(out) :: neval
16164 integer(IK) ,
intent(out) :: nint
16170 module function QAWC_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16172 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK4
16175 procedure(
real(RKC)) :: getFunc
16176 real(RKC) ,
intent(in) :: lb
16177 type(pinf_type) ,
intent(in) :: ub
16178 real(RKC) ,
intent(in) :: abstol
16179 real(RKC) ,
intent(in) :: reltol
16180 type(GK41_type) ,
intent(in) :: qrule
16181 type(wcauchy_type) ,
intent(in) :: help
16182 real(RKC) ,
intent(out) :: integral, abserr
16183 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16184 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16185 integer(IK) ,
intent(out) :: neval
16186 integer(IK) ,
intent(out) :: nint
16192 module function QAWC_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16194 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK3
16197 procedure(
real(RKC)) :: getFunc
16198 real(RKC) ,
intent(in) :: lb
16199 type(pinf_type) ,
intent(in) :: ub
16200 real(RKC) ,
intent(in) :: abstol
16201 real(RKC) ,
intent(in) :: reltol
16202 type(GK41_type) ,
intent(in) :: qrule
16203 type(wcauchy_type) ,
intent(in) :: help
16204 real(RKC) ,
intent(out) :: integral, abserr
16205 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16206 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16207 integer(IK) ,
intent(out) :: neval
16208 integer(IK) ,
intent(out) :: nint
16214 module function QAWC_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16216 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK2
16219 procedure(
real(RKC)) :: getFunc
16220 real(RKC) ,
intent(in) :: lb
16221 type(pinf_type) ,
intent(in) :: ub
16222 real(RKC) ,
intent(in) :: abstol
16223 real(RKC) ,
intent(in) :: reltol
16224 type(GK41_type) ,
intent(in) :: qrule
16225 type(wcauchy_type) ,
intent(in) :: help
16226 real(RKC) ,
intent(out) :: integral, abserr
16227 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16228 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16229 integer(IK) ,
intent(out) :: neval
16230 integer(IK) ,
intent(out) :: nint
16236 module function QAWC_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16238 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK1
16241 procedure(
real(RKC)) :: getFunc
16242 real(RKC) ,
intent(in) :: lb
16243 type(pinf_type) ,
intent(in) :: ub
16244 real(RKC) ,
intent(in) :: abstol
16245 real(RKC) ,
intent(in) :: reltol
16246 type(GK41_type) ,
intent(in) :: qrule
16247 type(wcauchy_type) ,
intent(in) :: help
16248 real(RKC) ,
intent(out) :: integral, abserr
16249 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16250 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16251 integer(IK) ,
intent(out) :: neval
16252 integer(IK) ,
intent(out) :: nint
16260 module function QAWC_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16262 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK5
16265 procedure(
real(RKC)) :: getFunc
16266 real(RKC) ,
intent(in) :: lb
16267 type(pinf_type) ,
intent(in) :: ub
16268 real(RKC) ,
intent(in) :: abstol
16269 real(RKC) ,
intent(in) :: reltol
16270 type(GK51_type) ,
intent(in) :: qrule
16271 type(wcauchy_type) ,
intent(in) :: help
16272 real(RKC) ,
intent(out) :: integral, abserr
16273 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16274 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16275 integer(IK) ,
intent(out) :: neval
16276 integer(IK) ,
intent(out) :: nint
16282 module function QAWC_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16284 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK4
16287 procedure(
real(RKC)) :: getFunc
16288 real(RKC) ,
intent(in) :: lb
16289 type(pinf_type) ,
intent(in) :: ub
16290 real(RKC) ,
intent(in) :: abstol
16291 real(RKC) ,
intent(in) :: reltol
16292 type(GK51_type) ,
intent(in) :: qrule
16293 type(wcauchy_type) ,
intent(in) :: help
16294 real(RKC) ,
intent(out) :: integral, abserr
16295 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16296 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16297 integer(IK) ,
intent(out) :: neval
16298 integer(IK) ,
intent(out) :: nint
16304 module function QAWC_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16306 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK3
16309 procedure(
real(RKC)) :: getFunc
16310 real(RKC) ,
intent(in) :: lb
16311 type(pinf_type) ,
intent(in) :: ub
16312 real(RKC) ,
intent(in) :: abstol
16313 real(RKC) ,
intent(in) :: reltol
16314 type(GK51_type) ,
intent(in) :: qrule
16315 type(wcauchy_type) ,
intent(in) :: help
16316 real(RKC) ,
intent(out) :: integral, abserr
16317 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16318 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16319 integer(IK) ,
intent(out) :: neval
16320 integer(IK) ,
intent(out) :: nint
16326 module function QAWC_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16328 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK2
16331 procedure(
real(RKC)) :: getFunc
16332 real(RKC) ,
intent(in) :: lb
16333 type(pinf_type) ,
intent(in) :: ub
16334 real(RKC) ,
intent(in) :: abstol
16335 real(RKC) ,
intent(in) :: reltol
16336 type(GK51_type) ,
intent(in) :: qrule
16337 type(wcauchy_type) ,
intent(in) :: help
16338 real(RKC) ,
intent(out) :: integral, abserr
16339 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16340 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16341 integer(IK) ,
intent(out) :: neval
16342 integer(IK) ,
intent(out) :: nint
16348 module function QAWC_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16350 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK1
16353 procedure(
real(RKC)) :: getFunc
16354 real(RKC) ,
intent(in) :: lb
16355 type(pinf_type) ,
intent(in) :: ub
16356 real(RKC) ,
intent(in) :: abstol
16357 real(RKC) ,
intent(in) :: reltol
16358 type(GK51_type) ,
intent(in) :: qrule
16359 type(wcauchy_type) ,
intent(in) :: help
16360 real(RKC) ,
intent(out) :: integral, abserr
16361 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16362 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16363 integer(IK) ,
intent(out) :: neval
16364 integer(IK) ,
intent(out) :: nint
16372 module function QAWC_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16374 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK5
16377 procedure(
real(RKC)) :: getFunc
16378 real(RKC) ,
intent(in) :: lb
16379 type(pinf_type) ,
intent(in) :: ub
16380 real(RKC) ,
intent(in) :: abstol
16381 real(RKC) ,
intent(in) :: reltol
16382 type(GK61_type) ,
intent(in) :: qrule
16383 type(wcauchy_type) ,
intent(in) :: help
16384 real(RKC) ,
intent(out) :: integral, abserr
16385 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16386 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16387 integer(IK) ,
intent(out) :: neval
16388 integer(IK) ,
intent(out) :: nint
16394 module function QAWC_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16396 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK4
16399 procedure(
real(RKC)) :: getFunc
16400 real(RKC) ,
intent(in) :: lb
16401 type(pinf_type) ,
intent(in) :: ub
16402 real(RKC) ,
intent(in) :: abstol
16403 real(RKC) ,
intent(in) :: reltol
16404 type(GK61_type) ,
intent(in) :: qrule
16405 type(wcauchy_type) ,
intent(in) :: help
16406 real(RKC) ,
intent(out) :: integral, abserr
16407 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16408 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16409 integer(IK) ,
intent(out) :: neval
16410 integer(IK) ,
intent(out) :: nint
16416 module function QAWC_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16418 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK3
16421 procedure(
real(RKC)) :: getFunc
16422 real(RKC) ,
intent(in) :: lb
16423 type(pinf_type) ,
intent(in) :: ub
16424 real(RKC) ,
intent(in) :: abstol
16425 real(RKC) ,
intent(in) :: reltol
16426 type(GK61_type) ,
intent(in) :: qrule
16427 type(wcauchy_type) ,
intent(in) :: help
16428 real(RKC) ,
intent(out) :: integral, abserr
16429 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16430 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16431 integer(IK) ,
intent(out) :: neval
16432 integer(IK) ,
intent(out) :: nint
16438 module function QAWC_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16440 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK2
16443 procedure(
real(RKC)) :: getFunc
16444 real(RKC) ,
intent(in) :: lb
16445 type(pinf_type) ,
intent(in) :: ub
16446 real(RKC) ,
intent(in) :: abstol
16447 real(RKC) ,
intent(in) :: reltol
16448 type(GK61_type) ,
intent(in) :: qrule
16449 type(wcauchy_type) ,
intent(in) :: help
16450 real(RKC) ,
intent(out) :: integral, abserr
16451 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16452 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16453 integer(IK) ,
intent(out) :: neval
16454 integer(IK) ,
intent(out) :: nint
16460 module function QAWC_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16462 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK1
16465 procedure(
real(RKC)) :: getFunc
16466 real(RKC) ,
intent(in) :: lb
16467 type(pinf_type) ,
intent(in) :: ub
16468 real(RKC) ,
intent(in) :: abstol
16469 real(RKC) ,
intent(in) :: reltol
16470 type(GK61_type) ,
intent(in) :: qrule
16471 type(wcauchy_type) ,
intent(in) :: help
16472 real(RKC) ,
intent(out) :: integral, abserr
16473 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16474 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16475 integer(IK) ,
intent(out) :: neval
16476 integer(IK) ,
intent(out) :: nint
16484 module function QAWC_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16486 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK5
16489 procedure(
real(RKC)) :: getFunc
16490 real(RKC) ,
intent(in) :: lb
16491 type(pinf_type) ,
intent(in) :: ub
16492 real(RKC) ,
intent(in) :: abstol
16493 real(RKC) ,
intent(in) :: reltol
16494 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16495 type(wcauchy_type) ,
intent(in) :: help
16496 real(RKC) ,
intent(out) :: integral, abserr
16497 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16498 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16499 integer(IK) ,
intent(out) :: neval
16500 integer(IK) ,
intent(out) :: nint
16506 module function QAWC_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16508 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK4
16511 procedure(
real(RKC)) :: getFunc
16512 real(RKC) ,
intent(in) :: lb
16513 type(pinf_type) ,
intent(in) :: ub
16514 real(RKC) ,
intent(in) :: abstol
16515 real(RKC) ,
intent(in) :: reltol
16516 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16517 type(wcauchy_type) ,
intent(in) :: help
16518 real(RKC) ,
intent(out) :: integral, abserr
16519 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16520 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16521 integer(IK) ,
intent(out) :: neval
16522 integer(IK) ,
intent(out) :: nint
16528 module function QAWC_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16530 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK3
16533 procedure(
real(RKC)) :: getFunc
16534 real(RKC) ,
intent(in) :: lb
16535 type(pinf_type) ,
intent(in) :: ub
16536 real(RKC) ,
intent(in) :: abstol
16537 real(RKC) ,
intent(in) :: reltol
16538 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16539 type(wcauchy_type) ,
intent(in) :: help
16540 real(RKC) ,
intent(out) :: integral, abserr
16541 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16542 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16543 integer(IK) ,
intent(out) :: neval
16544 integer(IK) ,
intent(out) :: nint
16550 module function QAWC_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16552 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK2
16555 procedure(
real(RKC)) :: getFunc
16556 real(RKC) ,
intent(in) :: lb
16557 type(pinf_type) ,
intent(in) :: ub
16558 real(RKC) ,
intent(in) :: abstol
16559 real(RKC) ,
intent(in) :: reltol
16560 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16561 type(wcauchy_type) ,
intent(in) :: help
16562 real(RKC) ,
intent(out) :: integral, abserr
16563 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16564 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16565 integer(IK) ,
intent(out) :: neval
16566 integer(IK) ,
intent(out) :: nint
16572 module function QAWC_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16574 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK1
16577 procedure(
real(RKC)) :: getFunc
16578 real(RKC) ,
intent(in) :: lb
16579 type(pinf_type) ,
intent(in) :: ub
16580 real(RKC) ,
intent(in) :: abstol
16581 real(RKC) ,
intent(in) :: reltol
16582 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16583 type(wcauchy_type) ,
intent(in) :: help
16584 real(RKC) ,
intent(out) :: integral, abserr
16585 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16586 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16587 integer(IK) ,
intent(out) :: neval
16588 integer(IK) ,
intent(out) :: nint
16604 module function QAWC_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16606 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK5
16609 procedure(
real(RKC)) :: getFunc
16610 type(ninf_type) ,
intent(in) :: lb
16611 real(RKC) ,
intent(in) :: ub
16612 real(RKC) ,
intent(in) :: abstol
16613 real(RKC) ,
intent(in) :: reltol
16614 type(GK15_type) ,
intent(in) :: qrule
16615 type(wcauchy_type) ,
intent(in) :: help
16616 real(RKC) ,
intent(out) :: integral, abserr
16617 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16618 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16619 integer(IK) ,
intent(out) :: neval
16620 integer(IK) ,
intent(out) :: nint
16626 module function QAWC_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16628 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK4
16631 procedure(
real(RKC)) :: getFunc
16632 type(ninf_type) ,
intent(in) :: lb
16633 real(RKC) ,
intent(in) :: ub
16634 real(RKC) ,
intent(in) :: abstol
16635 real(RKC) ,
intent(in) :: reltol
16636 type(GK15_type) ,
intent(in) :: qrule
16637 type(wcauchy_type) ,
intent(in) :: help
16638 real(RKC) ,
intent(out) :: integral, abserr
16639 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16640 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16641 integer(IK) ,
intent(out) :: neval
16642 integer(IK) ,
intent(out) :: nint
16648 module function QAWC_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16650 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK3
16653 procedure(
real(RKC)) :: getFunc
16654 type(ninf_type) ,
intent(in) :: lb
16655 real(RKC) ,
intent(in) :: ub
16656 real(RKC) ,
intent(in) :: abstol
16657 real(RKC) ,
intent(in) :: reltol
16658 type(GK15_type) ,
intent(in) :: qrule
16659 type(wcauchy_type) ,
intent(in) :: help
16660 real(RKC) ,
intent(out) :: integral, abserr
16661 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16662 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16663 integer(IK) ,
intent(out) :: neval
16664 integer(IK) ,
intent(out) :: nint
16670 module function QAWC_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16672 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK2
16675 procedure(
real(RKC)) :: getFunc
16676 type(ninf_type) ,
intent(in) :: lb
16677 real(RKC) ,
intent(in) :: ub
16678 real(RKC) ,
intent(in) :: abstol
16679 real(RKC) ,
intent(in) :: reltol
16680 type(GK15_type) ,
intent(in) :: qrule
16681 type(wcauchy_type) ,
intent(in) :: help
16682 real(RKC) ,
intent(out) :: integral, abserr
16683 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16684 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16685 integer(IK) ,
intent(out) :: neval
16686 integer(IK) ,
intent(out) :: nint
16692 module function QAWC_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16694 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK1
16697 procedure(
real(RKC)) :: getFunc
16698 type(ninf_type) ,
intent(in) :: lb
16699 real(RKC) ,
intent(in) :: ub
16700 real(RKC) ,
intent(in) :: abstol
16701 real(RKC) ,
intent(in) :: reltol
16702 type(GK15_type) ,
intent(in) :: qrule
16703 type(wcauchy_type) ,
intent(in) :: help
16704 real(RKC) ,
intent(out) :: integral, abserr
16705 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16706 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16707 integer(IK) ,
intent(out) :: neval
16708 integer(IK) ,
intent(out) :: nint
16716 module function QAWC_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16718 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK5
16721 procedure(
real(RKC)) :: getFunc
16722 type(ninf_type) ,
intent(in) :: lb
16723 real(RKC) ,
intent(in) :: ub
16724 real(RKC) ,
intent(in) :: abstol
16725 real(RKC) ,
intent(in) :: reltol
16726 type(GK21_type) ,
intent(in) :: qrule
16727 type(wcauchy_type) ,
intent(in) :: help
16728 real(RKC) ,
intent(out) :: integral, abserr
16729 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16730 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16731 integer(IK) ,
intent(out) :: neval
16732 integer(IK) ,
intent(out) :: nint
16738 module function QAWC_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16740 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK4
16743 procedure(
real(RKC)) :: getFunc
16744 type(ninf_type) ,
intent(in) :: lb
16745 real(RKC) ,
intent(in) :: ub
16746 real(RKC) ,
intent(in) :: abstol
16747 real(RKC) ,
intent(in) :: reltol
16748 type(GK21_type) ,
intent(in) :: qrule
16749 type(wcauchy_type) ,
intent(in) :: help
16750 real(RKC) ,
intent(out) :: integral, abserr
16751 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16752 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16753 integer(IK) ,
intent(out) :: neval
16754 integer(IK) ,
intent(out) :: nint
16760 module function QAWC_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16762 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK3
16765 procedure(
real(RKC)) :: getFunc
16766 type(ninf_type) ,
intent(in) :: lb
16767 real(RKC) ,
intent(in) :: ub
16768 real(RKC) ,
intent(in) :: abstol
16769 real(RKC) ,
intent(in) :: reltol
16770 type(GK21_type) ,
intent(in) :: qrule
16771 type(wcauchy_type) ,
intent(in) :: help
16772 real(RKC) ,
intent(out) :: integral, abserr
16773 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16774 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16775 integer(IK) ,
intent(out) :: neval
16776 integer(IK) ,
intent(out) :: nint
16782 module function QAWC_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16784 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK2
16787 procedure(
real(RKC)) :: getFunc
16788 type(ninf_type) ,
intent(in) :: lb
16789 real(RKC) ,
intent(in) :: ub
16790 real(RKC) ,
intent(in) :: abstol
16791 real(RKC) ,
intent(in) :: reltol
16792 type(GK21_type) ,
intent(in) :: qrule
16793 type(wcauchy_type) ,
intent(in) :: help
16794 real(RKC) ,
intent(out) :: integral, abserr
16795 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16796 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16797 integer(IK) ,
intent(out) :: neval
16798 integer(IK) ,
intent(out) :: nint
16804 module function QAWC_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16806 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK1
16809 procedure(
real(RKC)) :: getFunc
16810 type(ninf_type) ,
intent(in) :: lb
16811 real(RKC) ,
intent(in) :: ub
16812 real(RKC) ,
intent(in) :: abstol
16813 real(RKC) ,
intent(in) :: reltol
16814 type(GK21_type) ,
intent(in) :: qrule
16815 type(wcauchy_type) ,
intent(in) :: help
16816 real(RKC) ,
intent(out) :: integral, abserr
16817 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16818 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16819 integer(IK) ,
intent(out) :: neval
16820 integer(IK) ,
intent(out) :: nint
16828 module function QAWC_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16830 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK5
16833 procedure(
real(RKC)) :: getFunc
16834 type(ninf_type) ,
intent(in) :: lb
16835 real(RKC) ,
intent(in) :: ub
16836 real(RKC) ,
intent(in) :: abstol
16837 real(RKC) ,
intent(in) :: reltol
16838 type(GK31_type) ,
intent(in) :: qrule
16839 type(wcauchy_type) ,
intent(in) :: help
16840 real(RKC) ,
intent(out) :: integral, abserr
16841 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16842 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16843 integer(IK) ,
intent(out) :: neval
16844 integer(IK) ,
intent(out) :: nint
16850 module function QAWC_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16852 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK4
16855 procedure(
real(RKC)) :: getFunc
16856 type(ninf_type) ,
intent(in) :: lb
16857 real(RKC) ,
intent(in) :: ub
16858 real(RKC) ,
intent(in) :: abstol
16859 real(RKC) ,
intent(in) :: reltol
16860 type(GK31_type) ,
intent(in) :: qrule
16861 type(wcauchy_type) ,
intent(in) :: help
16862 real(RKC) ,
intent(out) :: integral, abserr
16863 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16864 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16865 integer(IK) ,
intent(out) :: neval
16866 integer(IK) ,
intent(out) :: nint
16872 module function QAWC_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16874 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK3
16877 procedure(
real(RKC)) :: getFunc
16878 type(ninf_type) ,
intent(in) :: lb
16879 real(RKC) ,
intent(in) :: ub
16880 real(RKC) ,
intent(in) :: abstol
16881 real(RKC) ,
intent(in) :: reltol
16882 type(GK31_type) ,
intent(in) :: qrule
16883 type(wcauchy_type) ,
intent(in) :: help
16884 real(RKC) ,
intent(out) :: integral, abserr
16885 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16886 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16887 integer(IK) ,
intent(out) :: neval
16888 integer(IK) ,
intent(out) :: nint
16894 module function QAWC_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16896 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK2
16899 procedure(
real(RKC)) :: getFunc
16900 type(ninf_type) ,
intent(in) :: lb
16901 real(RKC) ,
intent(in) :: ub
16902 real(RKC) ,
intent(in) :: abstol
16903 real(RKC) ,
intent(in) :: reltol
16904 type(GK31_type) ,
intent(in) :: qrule
16905 type(wcauchy_type) ,
intent(in) :: help
16906 real(RKC) ,
intent(out) :: integral, abserr
16907 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16908 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16909 integer(IK) ,
intent(out) :: neval
16910 integer(IK) ,
intent(out) :: nint
16916 module function QAWC_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16918 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK1
16921 procedure(
real(RKC)) :: getFunc
16922 type(ninf_type) ,
intent(in) :: lb
16923 real(RKC) ,
intent(in) :: ub
16924 real(RKC) ,
intent(in) :: abstol
16925 real(RKC) ,
intent(in) :: reltol
16926 type(GK31_type) ,
intent(in) :: qrule
16927 type(wcauchy_type) ,
intent(in) :: help
16928 real(RKC) ,
intent(out) :: integral, abserr
16929 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16930 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16931 integer(IK) ,
intent(out) :: neval
16932 integer(IK) ,
intent(out) :: nint
16940 module function QAWC_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16942 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK5
16945 procedure(
real(RKC)) :: getFunc
16946 type(ninf_type) ,
intent(in) :: lb
16947 real(RKC) ,
intent(in) :: ub
16948 real(RKC) ,
intent(in) :: abstol
16949 real(RKC) ,
intent(in) :: reltol
16950 type(GK41_type) ,
intent(in) :: qrule
16951 type(wcauchy_type) ,
intent(in) :: help
16952 real(RKC) ,
intent(out) :: integral, abserr
16953 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16954 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16955 integer(IK) ,
intent(out) :: neval
16956 integer(IK) ,
intent(out) :: nint
16962 module function QAWC_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16964 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK4
16967 procedure(
real(RKC)) :: getFunc
16968 type(ninf_type) ,
intent(in) :: lb
16969 real(RKC) ,
intent(in) :: ub
16970 real(RKC) ,
intent(in) :: abstol
16971 real(RKC) ,
intent(in) :: reltol
16972 type(GK41_type) ,
intent(in) :: qrule
16973 type(wcauchy_type) ,
intent(in) :: help
16974 real(RKC) ,
intent(out) :: integral, abserr
16975 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16976 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16977 integer(IK) ,
intent(out) :: neval
16978 integer(IK) ,
intent(out) :: nint
16984 module function QAWC_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16986 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK3
16989 procedure(
real(RKC)) :: getFunc
16990 type(ninf_type) ,
intent(in) :: lb
16991 real(RKC) ,
intent(in) :: ub
16992 real(RKC) ,
intent(in) :: abstol
16993 real(RKC) ,
intent(in) :: reltol
16994 type(GK41_type) ,
intent(in) :: qrule
16995 type(wcauchy_type) ,
intent(in) :: help
16996 real(RKC) ,
intent(out) :: integral, abserr
16997 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16998 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16999 integer(IK) ,
intent(out) :: neval
17000 integer(IK) ,
intent(out) :: nint
17006 module function QAWC_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17008 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK2
17011 procedure(
real(RKC)) :: getFunc
17012 type(ninf_type) ,
intent(in) :: lb
17013 real(RKC) ,
intent(in) :: ub
17014 real(RKC) ,
intent(in) :: abstol
17015 real(RKC) ,
intent(in) :: reltol
17016 type(GK41_type) ,
intent(in) :: qrule
17017 type(wcauchy_type) ,
intent(in) :: help
17018 real(RKC) ,
intent(out) :: integral, abserr
17019 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17020 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17021 integer(IK) ,
intent(out) :: neval
17022 integer(IK) ,
intent(out) :: nint
17028 module function QAWC_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17030 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK1
17033 procedure(
real(RKC)) :: getFunc
17034 type(ninf_type) ,
intent(in) :: lb
17035 real(RKC) ,
intent(in) :: ub
17036 real(RKC) ,
intent(in) :: abstol
17037 real(RKC) ,
intent(in) :: reltol
17038 type(GK41_type) ,
intent(in) :: qrule
17039 type(wcauchy_type) ,
intent(in) :: help
17040 real(RKC) ,
intent(out) :: integral, abserr
17041 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17042 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17043 integer(IK) ,
intent(out) :: neval
17044 integer(IK) ,
intent(out) :: nint
17052 module function QAWC_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17054 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK5
17057 procedure(
real(RKC)) :: getFunc
17058 type(ninf_type) ,
intent(in) :: lb
17059 real(RKC) ,
intent(in) :: ub
17060 real(RKC) ,
intent(in) :: abstol
17061 real(RKC) ,
intent(in) :: reltol
17062 type(GK51_type) ,
intent(in) :: qrule
17063 type(wcauchy_type) ,
intent(in) :: help
17064 real(RKC) ,
intent(out) :: integral, abserr
17065 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17066 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17067 integer(IK) ,
intent(out) :: neval
17068 integer(IK) ,
intent(out) :: nint
17074 module function QAWC_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17076 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK4
17079 procedure(
real(RKC)) :: getFunc
17080 type(ninf_type) ,
intent(in) :: lb
17081 real(RKC) ,
intent(in) :: ub
17082 real(RKC) ,
intent(in) :: abstol
17083 real(RKC) ,
intent(in) :: reltol
17084 type(GK51_type) ,
intent(in) :: qrule
17085 type(wcauchy_type) ,
intent(in) :: help
17086 real(RKC) ,
intent(out) :: integral, abserr
17087 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17088 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17089 integer(IK) ,
intent(out) :: neval
17090 integer(IK) ,
intent(out) :: nint
17096 module function QAWC_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17098 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK3
17101 procedure(
real(RKC)) :: getFunc
17102 type(ninf_type) ,
intent(in) :: lb
17103 real(RKC) ,
intent(in) :: ub
17104 real(RKC) ,
intent(in) :: abstol
17105 real(RKC) ,
intent(in) :: reltol
17106 type(GK51_type) ,
intent(in) :: qrule
17107 type(wcauchy_type) ,
intent(in) :: help
17108 real(RKC) ,
intent(out) :: integral, abserr
17109 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17110 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17111 integer(IK) ,
intent(out) :: neval
17112 integer(IK) ,
intent(out) :: nint
17118 module function QAWC_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17120 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK2
17123 procedure(
real(RKC)) :: getFunc
17124 type(ninf_type) ,
intent(in) :: lb
17125 real(RKC) ,
intent(in) :: ub
17126 real(RKC) ,
intent(in) :: abstol
17127 real(RKC) ,
intent(in) :: reltol
17128 type(GK51_type) ,
intent(in) :: qrule
17129 type(wcauchy_type) ,
intent(in) :: help
17130 real(RKC) ,
intent(out) :: integral, abserr
17131 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17132 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17133 integer(IK) ,
intent(out) :: neval
17134 integer(IK) ,
intent(out) :: nint
17140 module function QAWC_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17142 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK1
17145 procedure(
real(RKC)) :: getFunc
17146 type(ninf_type) ,
intent(in) :: lb
17147 real(RKC) ,
intent(in) :: ub
17148 real(RKC) ,
intent(in) :: abstol
17149 real(RKC) ,
intent(in) :: reltol
17150 type(GK51_type) ,
intent(in) :: qrule
17151 type(wcauchy_type) ,
intent(in) :: help
17152 real(RKC) ,
intent(out) :: integral, abserr
17153 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17154 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17155 integer(IK) ,
intent(out) :: neval
17156 integer(IK) ,
intent(out) :: nint
17164 module function QAWC_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17166 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK5
17169 procedure(
real(RKC)) :: getFunc
17170 type(ninf_type) ,
intent(in) :: lb
17171 real(RKC) ,
intent(in) :: ub
17172 real(RKC) ,
intent(in) :: abstol
17173 real(RKC) ,
intent(in) :: reltol
17174 type(GK61_type) ,
intent(in) :: qrule
17175 type(wcauchy_type) ,
intent(in) :: help
17176 real(RKC) ,
intent(out) :: integral, abserr
17177 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17178 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17179 integer(IK) ,
intent(out) :: neval
17180 integer(IK) ,
intent(out) :: nint
17186 module function QAWC_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17188 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK4
17191 procedure(
real(RKC)) :: getFunc
17192 type(ninf_type) ,
intent(in) :: lb
17193 real(RKC) ,
intent(in) :: ub
17194 real(RKC) ,
intent(in) :: abstol
17195 real(RKC) ,
intent(in) :: reltol
17196 type(GK61_type) ,
intent(in) :: qrule
17197 type(wcauchy_type) ,
intent(in) :: help
17198 real(RKC) ,
intent(out) :: integral, abserr
17199 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17200 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17201 integer(IK) ,
intent(out) :: neval
17202 integer(IK) ,
intent(out) :: nint
17208 module function QAWC_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17210 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK3
17213 procedure(
real(RKC)) :: getFunc
17214 type(ninf_type) ,
intent(in) :: lb
17215 real(RKC) ,
intent(in) :: ub
17216 real(RKC) ,
intent(in) :: abstol
17217 real(RKC) ,
intent(in) :: reltol
17218 type(GK61_type) ,
intent(in) :: qrule
17219 type(wcauchy_type) ,
intent(in) :: help
17220 real(RKC) ,
intent(out) :: integral, abserr
17221 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17222 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17223 integer(IK) ,
intent(out) :: neval
17224 integer(IK) ,
intent(out) :: nint
17230 module function QAWC_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17232 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK2
17235 procedure(
real(RKC)) :: getFunc
17236 type(ninf_type) ,
intent(in) :: lb
17237 real(RKC) ,
intent(in) :: ub
17238 real(RKC) ,
intent(in) :: abstol
17239 real(RKC) ,
intent(in) :: reltol
17240 type(GK61_type) ,
intent(in) :: qrule
17241 type(wcauchy_type) ,
intent(in) :: help
17242 real(RKC) ,
intent(out) :: integral, abserr
17243 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17244 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17245 integer(IK) ,
intent(out) :: neval
17246 integer(IK) ,
intent(out) :: nint
17252 module function QAWC_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17254 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK1
17257 procedure(
real(RKC)) :: getFunc
17258 type(ninf_type) ,
intent(in) :: lb
17259 real(RKC) ,
intent(in) :: ub
17260 real(RKC) ,
intent(in) :: abstol
17261 real(RKC) ,
intent(in) :: reltol
17262 type(GK61_type) ,
intent(in) :: qrule
17263 type(wcauchy_type) ,
intent(in) :: help
17264 real(RKC) ,
intent(out) :: integral, abserr
17265 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17266 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17267 integer(IK) ,
intent(out) :: neval
17268 integer(IK) ,
intent(out) :: nint
17276 module function QAWC_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17278 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK5
17281 procedure(
real(RKC)) :: getFunc
17282 type(ninf_type) ,
intent(in) :: lb
17283 real(RKC) ,
intent(in) :: ub
17284 real(RKC) ,
intent(in) :: abstol
17285 real(RKC) ,
intent(in) :: reltol
17286 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17287 type(wcauchy_type) ,
intent(in) :: help
17288 real(RKC) ,
intent(out) :: integral, abserr
17289 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17290 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17291 integer(IK) ,
intent(out) :: neval
17292 integer(IK) ,
intent(out) :: nint
17298 module function QAWC_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17300 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK4
17303 procedure(
real(RKC)) :: getFunc
17304 type(ninf_type) ,
intent(in) :: lb
17305 real(RKC) ,
intent(in) :: ub
17306 real(RKC) ,
intent(in) :: abstol
17307 real(RKC) ,
intent(in) :: reltol
17308 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17309 type(wcauchy_type) ,
intent(in) :: help
17310 real(RKC) ,
intent(out) :: integral, abserr
17311 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17312 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17313 integer(IK) ,
intent(out) :: neval
17314 integer(IK) ,
intent(out) :: nint
17320 module function QAWC_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17322 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK3
17325 procedure(
real(RKC)) :: getFunc
17326 type(ninf_type) ,
intent(in) :: lb
17327 real(RKC) ,
intent(in) :: ub
17328 real(RKC) ,
intent(in) :: abstol
17329 real(RKC) ,
intent(in) :: reltol
17330 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17331 type(wcauchy_type) ,
intent(in) :: help
17332 real(RKC) ,
intent(out) :: integral, abserr
17333 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17334 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17335 integer(IK) ,
intent(out) :: neval
17336 integer(IK) ,
intent(out) :: nint
17342 module function QAWC_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17344 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK2
17347 procedure(
real(RKC)) :: getFunc
17348 type(ninf_type) ,
intent(in) :: lb
17349 real(RKC) ,
intent(in) :: ub
17350 real(RKC) ,
intent(in) :: abstol
17351 real(RKC) ,
intent(in) :: reltol
17352 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17353 type(wcauchy_type) ,
intent(in) :: help
17354 real(RKC) ,
intent(out) :: integral, abserr
17355 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17356 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17357 integer(IK) ,
intent(out) :: neval
17358 integer(IK) ,
intent(out) :: nint
17364 module function QAWC_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17366 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK1
17369 procedure(
real(RKC)) :: getFunc
17370 type(ninf_type) ,
intent(in) :: lb
17371 real(RKC) ,
intent(in) :: ub
17372 real(RKC) ,
intent(in) :: abstol
17373 real(RKC) ,
intent(in) :: reltol
17374 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17375 type(wcauchy_type) ,
intent(in) :: help
17376 real(RKC) ,
intent(out) :: integral, abserr
17377 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17378 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17379 integer(IK) ,
intent(out) :: neval
17380 integer(IK) ,
intent(out) :: nint
17396 module function QAWC_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17398 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK5
17401 procedure(
real(RKC)) :: getFunc
17402 type(ninf_type) ,
intent(in) :: lb
17403 type(pinf_type) ,
intent(in) :: ub
17404 real(RKC) ,
intent(in) :: abstol
17405 real(RKC) ,
intent(in) :: reltol
17406 type(GK15_type) ,
intent(in) :: qrule
17407 type(wcauchy_type) ,
intent(in) :: help
17408 real(RKC) ,
intent(out) :: integral, abserr
17409 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17410 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17411 integer(IK) ,
intent(out) :: neval
17412 integer(IK) ,
intent(out) :: nint
17418 module function QAWC_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17420 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK4
17423 procedure(
real(RKC)) :: getFunc
17424 type(ninf_type) ,
intent(in) :: lb
17425 type(pinf_type) ,
intent(in) :: ub
17426 real(RKC) ,
intent(in) :: abstol
17427 real(RKC) ,
intent(in) :: reltol
17428 type(GK15_type) ,
intent(in) :: qrule
17429 type(wcauchy_type) ,
intent(in) :: help
17430 real(RKC) ,
intent(out) :: integral, abserr
17431 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17432 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17433 integer(IK) ,
intent(out) :: neval
17434 integer(IK) ,
intent(out) :: nint
17440 module function QAWC_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17442 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK3
17445 procedure(
real(RKC)) :: getFunc
17446 type(ninf_type) ,
intent(in) :: lb
17447 type(pinf_type) ,
intent(in) :: ub
17448 real(RKC) ,
intent(in) :: abstol
17449 real(RKC) ,
intent(in) :: reltol
17450 type(GK15_type) ,
intent(in) :: qrule
17451 type(wcauchy_type) ,
intent(in) :: help
17452 real(RKC) ,
intent(out) :: integral, abserr
17453 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17454 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17455 integer(IK) ,
intent(out) :: neval
17456 integer(IK) ,
intent(out) :: nint
17462 module function QAWC_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17464 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK2
17467 procedure(
real(RKC)) :: getFunc
17468 type(ninf_type) ,
intent(in) :: lb
17469 type(pinf_type) ,
intent(in) :: ub
17470 real(RKC) ,
intent(in) :: abstol
17471 real(RKC) ,
intent(in) :: reltol
17472 type(GK15_type) ,
intent(in) :: qrule
17473 type(wcauchy_type) ,
intent(in) :: help
17474 real(RKC) ,
intent(out) :: integral, abserr
17475 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17476 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17477 integer(IK) ,
intent(out) :: neval
17478 integer(IK) ,
intent(out) :: nint
17484 module function QAWC_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17486 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK1
17489 procedure(
real(RKC)) :: getFunc
17490 type(ninf_type) ,
intent(in) :: lb
17491 type(pinf_type) ,
intent(in) :: ub
17492 real(RKC) ,
intent(in) :: abstol
17493 real(RKC) ,
intent(in) :: reltol
17494 type(GK15_type) ,
intent(in) :: qrule
17495 type(wcauchy_type) ,
intent(in) :: help
17496 real(RKC) ,
intent(out) :: integral, abserr
17497 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17498 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17499 integer(IK) ,
intent(out) :: neval
17500 integer(IK) ,
intent(out) :: nint
17508 module function QAWC_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17510 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK5
17513 procedure(
real(RKC)) :: getFunc
17514 type(ninf_type) ,
intent(in) :: lb
17515 type(pinf_type) ,
intent(in) :: ub
17516 real(RKC) ,
intent(in) :: abstol
17517 real(RKC) ,
intent(in) :: reltol
17518 type(GK21_type) ,
intent(in) :: qrule
17519 type(wcauchy_type) ,
intent(in) :: help
17520 real(RKC) ,
intent(out) :: integral, abserr
17521 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17522 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17523 integer(IK) ,
intent(out) :: neval
17524 integer(IK) ,
intent(out) :: nint
17530 module function QAWC_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17532 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK4
17535 procedure(
real(RKC)) :: getFunc
17536 type(ninf_type) ,
intent(in) :: lb
17537 type(pinf_type) ,
intent(in) :: ub
17538 real(RKC) ,
intent(in) :: abstol
17539 real(RKC) ,
intent(in) :: reltol
17540 type(GK21_type) ,
intent(in) :: qrule
17541 type(wcauchy_type) ,
intent(in) :: help
17542 real(RKC) ,
intent(out) :: integral, abserr
17543 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17544 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17545 integer(IK) ,
intent(out) :: neval
17546 integer(IK) ,
intent(out) :: nint
17552 module function QAWC_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17554 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK3
17557 procedure(
real(RKC)) :: getFunc
17558 type(ninf_type) ,
intent(in) :: lb
17559 type(pinf_type) ,
intent(in) :: ub
17560 real(RKC) ,
intent(in) :: abstol
17561 real(RKC) ,
intent(in) :: reltol
17562 type(GK21_type) ,
intent(in) :: qrule
17563 type(wcauchy_type) ,
intent(in) :: help
17564 real(RKC) ,
intent(out) :: integral, abserr
17565 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17566 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17567 integer(IK) ,
intent(out) :: neval
17568 integer(IK) ,
intent(out) :: nint
17574 module function QAWC_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17576 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK2
17579 procedure(
real(RKC)) :: getFunc
17580 type(ninf_type) ,
intent(in) :: lb
17581 type(pinf_type) ,
intent(in) :: ub
17582 real(RKC) ,
intent(in) :: abstol
17583 real(RKC) ,
intent(in) :: reltol
17584 type(GK21_type) ,
intent(in) :: qrule
17585 type(wcauchy_type) ,
intent(in) :: help
17586 real(RKC) ,
intent(out) :: integral, abserr
17587 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17588 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17589 integer(IK) ,
intent(out) :: neval
17590 integer(IK) ,
intent(out) :: nint
17596 module function QAWC_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17598 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK1
17601 procedure(
real(RKC)) :: getFunc
17602 type(ninf_type) ,
intent(in) :: lb
17603 type(pinf_type) ,
intent(in) :: ub
17604 real(RKC) ,
intent(in) :: abstol
17605 real(RKC) ,
intent(in) :: reltol
17606 type(GK21_type) ,
intent(in) :: qrule
17607 type(wcauchy_type) ,
intent(in) :: help
17608 real(RKC) ,
intent(out) :: integral, abserr
17609 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17610 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17611 integer(IK) ,
intent(out) :: neval
17612 integer(IK) ,
intent(out) :: nint
17620 module function QAWC_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17622 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK5
17625 procedure(
real(RKC)) :: getFunc
17626 type(ninf_type) ,
intent(in) :: lb
17627 type(pinf_type) ,
intent(in) :: ub
17628 real(RKC) ,
intent(in) :: abstol
17629 real(RKC) ,
intent(in) :: reltol
17630 type(GK31_type) ,
intent(in) :: qrule
17631 type(wcauchy_type) ,
intent(in) :: help
17632 real(RKC) ,
intent(out) :: integral, abserr
17633 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17634 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17635 integer(IK) ,
intent(out) :: neval
17636 integer(IK) ,
intent(out) :: nint
17642 module function QAWC_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17644 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK4
17647 procedure(
real(RKC)) :: getFunc
17648 type(ninf_type) ,
intent(in) :: lb
17649 type(pinf_type) ,
intent(in) :: ub
17650 real(RKC) ,
intent(in) :: abstol
17651 real(RKC) ,
intent(in) :: reltol
17652 type(GK31_type) ,
intent(in) :: qrule
17653 type(wcauchy_type) ,
intent(in) :: help
17654 real(RKC) ,
intent(out) :: integral, abserr
17655 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17656 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17657 integer(IK) ,
intent(out) :: neval
17658 integer(IK) ,
intent(out) :: nint
17664 module function QAWC_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17666 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK3
17669 procedure(
real(RKC)) :: getFunc
17670 type(ninf_type) ,
intent(in) :: lb
17671 type(pinf_type) ,
intent(in) :: ub
17672 real(RKC) ,
intent(in) :: abstol
17673 real(RKC) ,
intent(in) :: reltol
17674 type(GK31_type) ,
intent(in) :: qrule
17675 type(wcauchy_type) ,
intent(in) :: help
17676 real(RKC) ,
intent(out) :: integral, abserr
17677 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17678 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17679 integer(IK) ,
intent(out) :: neval
17680 integer(IK) ,
intent(out) :: nint
17686 module function QAWC_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17688 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK2
17691 procedure(
real(RKC)) :: getFunc
17692 type(ninf_type) ,
intent(in) :: lb
17693 type(pinf_type) ,
intent(in) :: ub
17694 real(RKC) ,
intent(in) :: abstol
17695 real(RKC) ,
intent(in) :: reltol
17696 type(GK31_type) ,
intent(in) :: qrule
17697 type(wcauchy_type) ,
intent(in) :: help
17698 real(RKC) ,
intent(out) :: integral, abserr
17699 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17700 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17701 integer(IK) ,
intent(out) :: neval
17702 integer(IK) ,
intent(out) :: nint
17708 module function QAWC_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17710 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK1
17713 procedure(
real(RKC)) :: getFunc
17714 type(ninf_type) ,
intent(in) :: lb
17715 type(pinf_type) ,
intent(in) :: ub
17716 real(RKC) ,
intent(in) :: abstol
17717 real(RKC) ,
intent(in) :: reltol
17718 type(GK31_type) ,
intent(in) :: qrule
17719 type(wcauchy_type) ,
intent(in) :: help
17720 real(RKC) ,
intent(out) :: integral, abserr
17721 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17722 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17723 integer(IK) ,
intent(out) :: neval
17724 integer(IK) ,
intent(out) :: nint
17732 module function QAWC_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17734 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK5
17737 procedure(
real(RKC)) :: getFunc
17738 type(ninf_type) ,
intent(in) :: lb
17739 type(pinf_type) ,
intent(in) :: ub
17740 real(RKC) ,
intent(in) :: abstol
17741 real(RKC) ,
intent(in) :: reltol
17742 type(GK41_type) ,
intent(in) :: qrule
17743 type(wcauchy_type) ,
intent(in) :: help
17744 real(RKC) ,
intent(out) :: integral, abserr
17745 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17746 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17747 integer(IK) ,
intent(out) :: neval
17748 integer(IK) ,
intent(out) :: nint
17754 module function QAWC_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17756 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK4
17759 procedure(
real(RKC)) :: getFunc
17760 type(ninf_type) ,
intent(in) :: lb
17761 type(pinf_type) ,
intent(in) :: ub
17762 real(RKC) ,
intent(in) :: abstol
17763 real(RKC) ,
intent(in) :: reltol
17764 type(GK41_type) ,
intent(in) :: qrule
17765 type(wcauchy_type) ,
intent(in) :: help
17766 real(RKC) ,
intent(out) :: integral, abserr
17767 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17768 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17769 integer(IK) ,
intent(out) :: neval
17770 integer(IK) ,
intent(out) :: nint
17776 module function QAWC_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17778 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK3
17781 procedure(
real(RKC)) :: getFunc
17782 type(ninf_type) ,
intent(in) :: lb
17783 type(pinf_type) ,
intent(in) :: ub
17784 real(RKC) ,
intent(in) :: abstol
17785 real(RKC) ,
intent(in) :: reltol
17786 type(GK41_type) ,
intent(in) :: qrule
17787 type(wcauchy_type) ,
intent(in) :: help
17788 real(RKC) ,
intent(out) :: integral, abserr
17789 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17790 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17791 integer(IK) ,
intent(out) :: neval
17792 integer(IK) ,
intent(out) :: nint
17798 module function QAWC_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17800 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK2
17803 procedure(
real(RKC)) :: getFunc
17804 type(ninf_type) ,
intent(in) :: lb
17805 type(pinf_type) ,
intent(in) :: ub
17806 real(RKC) ,
intent(in) :: abstol
17807 real(RKC) ,
intent(in) :: reltol
17808 type(GK41_type) ,
intent(in) :: qrule
17809 type(wcauchy_type) ,
intent(in) :: help
17810 real(RKC) ,
intent(out) :: integral, abserr
17811 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17812 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17813 integer(IK) ,
intent(out) :: neval
17814 integer(IK) ,
intent(out) :: nint
17820 module function QAWC_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17822 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK1
17825 procedure(
real(RKC)) :: getFunc
17826 type(ninf_type) ,
intent(in) :: lb
17827 type(pinf_type) ,
intent(in) :: ub
17828 real(RKC) ,
intent(in) :: abstol
17829 real(RKC) ,
intent(in) :: reltol
17830 type(GK41_type) ,
intent(in) :: qrule
17831 type(wcauchy_type) ,
intent(in) :: help
17832 real(RKC) ,
intent(out) :: integral, abserr
17833 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17834 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17835 integer(IK) ,
intent(out) :: neval
17836 integer(IK) ,
intent(out) :: nint
17844 module function QAWC_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17846 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK5
17849 procedure(
real(RKC)) :: getFunc
17850 type(ninf_type) ,
intent(in) :: lb
17851 type(pinf_type) ,
intent(in) :: ub
17852 real(RKC) ,
intent(in) :: abstol
17853 real(RKC) ,
intent(in) :: reltol
17854 type(GK51_type) ,
intent(in) :: qrule
17855 type(wcauchy_type) ,
intent(in) :: help
17856 real(RKC) ,
intent(out) :: integral, abserr
17857 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17858 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17859 integer(IK) ,
intent(out) :: neval
17860 integer(IK) ,
intent(out) :: nint
17866 module function QAWC_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17868 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK4
17871 procedure(
real(RKC)) :: getFunc
17872 type(ninf_type) ,
intent(in) :: lb
17873 type(pinf_type) ,
intent(in) :: ub
17874 real(RKC) ,
intent(in) :: abstol
17875 real(RKC) ,
intent(in) :: reltol
17876 type(GK51_type) ,
intent(in) :: qrule
17877 type(wcauchy_type) ,
intent(in) :: help
17878 real(RKC) ,
intent(out) :: integral, abserr
17879 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17880 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17881 integer(IK) ,
intent(out) :: neval
17882 integer(IK) ,
intent(out) :: nint
17888 module function QAWC_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17890 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK3
17893 procedure(
real(RKC)) :: getFunc
17894 type(ninf_type) ,
intent(in) :: lb
17895 type(pinf_type) ,
intent(in) :: ub
17896 real(RKC) ,
intent(in) :: abstol
17897 real(RKC) ,
intent(in) :: reltol
17898 type(GK51_type) ,
intent(in) :: qrule
17899 type(wcauchy_type) ,
intent(in) :: help
17900 real(RKC) ,
intent(out) :: integral, abserr
17901 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17902 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17903 integer(IK) ,
intent(out) :: neval
17904 integer(IK) ,
intent(out) :: nint
17910 module function QAWC_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17912 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK2
17915 procedure(
real(RKC)) :: getFunc
17916 type(ninf_type) ,
intent(in) :: lb
17917 type(pinf_type) ,
intent(in) :: ub
17918 real(RKC) ,
intent(in) :: abstol
17919 real(RKC) ,
intent(in) :: reltol
17920 type(GK51_type) ,
intent(in) :: qrule
17921 type(wcauchy_type) ,
intent(in) :: help
17922 real(RKC) ,
intent(out) :: integral, abserr
17923 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17924 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17925 integer(IK) ,
intent(out) :: neval
17926 integer(IK) ,
intent(out) :: nint
17932 module function QAWC_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17934 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK1
17937 procedure(
real(RKC)) :: getFunc
17938 type(ninf_type) ,
intent(in) :: lb
17939 type(pinf_type) ,
intent(in) :: ub
17940 real(RKC) ,
intent(in) :: abstol
17941 real(RKC) ,
intent(in) :: reltol
17942 type(GK51_type) ,
intent(in) :: qrule
17943 type(wcauchy_type) ,
intent(in) :: help
17944 real(RKC) ,
intent(out) :: integral, abserr
17945 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17946 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17947 integer(IK) ,
intent(out) :: neval
17948 integer(IK) ,
intent(out) :: nint
17956 module function QAWC_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17958 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK5
17961 procedure(
real(RKC)) :: getFunc
17962 type(ninf_type) ,
intent(in) :: lb
17963 type(pinf_type) ,
intent(in) :: ub
17964 real(RKC) ,
intent(in) :: abstol
17965 real(RKC) ,
intent(in) :: reltol
17966 type(GK61_type) ,
intent(in) :: qrule
17967 type(wcauchy_type) ,
intent(in) :: help
17968 real(RKC) ,
intent(out) :: integral, abserr
17969 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17970 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17971 integer(IK) ,
intent(out) :: neval
17972 integer(IK) ,
intent(out) :: nint
17978 module function QAWC_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17980 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK4
17983 procedure(
real(RKC)) :: getFunc
17984 type(ninf_type) ,
intent(in) :: lb
17985 type(pinf_type) ,
intent(in) :: ub
17986 real(RKC) ,
intent(in) :: abstol
17987 real(RKC) ,
intent(in) :: reltol
17988 type(GK61_type) ,
intent(in) :: qrule
17989 type(wcauchy_type) ,
intent(in) :: help
17990 real(RKC) ,
intent(out) :: integral, abserr
17991 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17992 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17993 integer(IK) ,
intent(out) :: neval
17994 integer(IK) ,
intent(out) :: nint
18000 module function QAWC_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18002 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK3
18005 procedure(
real(RKC)) :: getFunc
18006 type(ninf_type) ,
intent(in) :: lb
18007 type(pinf_type) ,
intent(in) :: ub
18008 real(RKC) ,
intent(in) :: abstol
18009 real(RKC) ,
intent(in) :: reltol
18010 type(GK61_type) ,
intent(in) :: qrule
18011 type(wcauchy_type) ,
intent(in) :: help
18012 real(RKC) ,
intent(out) :: integral, abserr
18013 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18014 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18015 integer(IK) ,
intent(out) :: neval
18016 integer(IK) ,
intent(out) :: nint
18022 module function QAWC_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18024 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK2
18027 procedure(
real(RKC)) :: getFunc
18028 type(ninf_type) ,
intent(in) :: lb
18029 type(pinf_type) ,
intent(in) :: ub
18030 real(RKC) ,
intent(in) :: abstol
18031 real(RKC) ,
intent(in) :: reltol
18032 type(GK61_type) ,
intent(in) :: qrule
18033 type(wcauchy_type) ,
intent(in) :: help
18034 real(RKC) ,
intent(out) :: integral, abserr
18035 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18036 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18037 integer(IK) ,
intent(out) :: neval
18038 integer(IK) ,
intent(out) :: nint
18044 module function QAWC_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18046 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK1
18049 procedure(
real(RKC)) :: getFunc
18050 type(ninf_type) ,
intent(in) :: lb
18051 type(pinf_type) ,
intent(in) :: ub
18052 real(RKC) ,
intent(in) :: abstol
18053 real(RKC) ,
intent(in) :: reltol
18054 type(GK61_type) ,
intent(in) :: qrule
18055 type(wcauchy_type) ,
intent(in) :: help
18056 real(RKC) ,
intent(out) :: integral, abserr
18057 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18058 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18059 integer(IK) ,
intent(out) :: neval
18060 integer(IK) ,
intent(out) :: nint
18068 module function QAWC_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18070 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK5
18073 procedure(
real(RKC)) :: getFunc
18074 type(ninf_type) ,
intent(in) :: lb
18075 type(pinf_type) ,
intent(in) :: ub
18076 real(RKC) ,
intent(in) :: abstol
18077 real(RKC) ,
intent(in) :: reltol
18078 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18079 type(wcauchy_type) ,
intent(in) :: help
18080 real(RKC) ,
intent(out) :: integral, abserr
18081 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18082 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18083 integer(IK) ,
intent(out) :: neval
18084 integer(IK) ,
intent(out) :: nint
18090 module function QAWC_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18092 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK4
18095 procedure(
real(RKC)) :: getFunc
18096 type(ninf_type) ,
intent(in) :: lb
18097 type(pinf_type) ,
intent(in) :: ub
18098 real(RKC) ,
intent(in) :: abstol
18099 real(RKC) ,
intent(in) :: reltol
18100 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18101 type(wcauchy_type) ,
intent(in) :: help
18102 real(RKC) ,
intent(out) :: integral, abserr
18103 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18104 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18105 integer(IK) ,
intent(out) :: neval
18106 integer(IK) ,
intent(out) :: nint
18112 module function QAWC_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18114 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK3
18117 procedure(
real(RKC)) :: getFunc
18118 type(ninf_type) ,
intent(in) :: lb
18119 type(pinf_type) ,
intent(in) :: ub
18120 real(RKC) ,
intent(in) :: abstol
18121 real(RKC) ,
intent(in) :: reltol
18122 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18123 type(wcauchy_type) ,
intent(in) :: help
18124 real(RKC) ,
intent(out) :: integral, abserr
18125 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18126 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18127 integer(IK) ,
intent(out) :: neval
18128 integer(IK) ,
intent(out) :: nint
18134 module function QAWC_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18136 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK2
18139 procedure(
real(RKC)) :: getFunc
18140 type(ninf_type) ,
intent(in) :: lb
18141 type(pinf_type) ,
intent(in) :: ub
18142 real(RKC) ,
intent(in) :: abstol
18143 real(RKC) ,
intent(in) :: reltol
18144 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18145 type(wcauchy_type) ,
intent(in) :: help
18146 real(RKC) ,
intent(out) :: integral, abserr
18147 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18148 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18149 integer(IK) ,
intent(out) :: neval
18150 integer(IK) ,
intent(out) :: nint
18156 module function QAWC_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18158 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK1
18161 procedure(
real(RKC)) :: getFunc
18162 type(ninf_type) ,
intent(in) :: lb
18163 type(pinf_type) ,
intent(in) :: ub
18164 real(RKC) ,
intent(in) :: abstol
18165 real(RKC) ,
intent(in) :: reltol
18166 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18167 type(wcauchy_type) ,
intent(in) :: help
18168 real(RKC) ,
intent(out) :: integral, abserr
18169 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18170 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18171 integer(IK) ,
intent(out) :: neval
18172 integer(IK) ,
intent(out) :: nint
18183end module pm_quadPack
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute the 1D integral of the input scalar integrand getFunc on the finite or infinite interval [a,...
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute and return the series expansion of the input function values via the Chebyshev polynomials of...
Sort the input local error estimates list (resulting from the interval subdivision process of the Ada...
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
Return the limit of a given sequence of approximations via the Epsilon method of Wynn (1961).
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
This module contains relevant mathematical constants.
character(*, SK), parameter MODULE_NAME
type(ninf_type), parameter ninf
The scalar constant object of type ninf_type that indicates the use of the negative infinity as an i...
type(pinf_type), parameter pinf
The scalar constant object of type pinf_type that indicates the use of the positive infinity as an i...
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
real(RKB), dimension(15), parameter weightG30
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter nodeG25
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(21), parameter weightK41
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(16), parameter weightK31
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(21), parameter nodeK41
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeG15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(15), parameter nodeG30
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeK15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(11), parameter weightK21
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(31), parameter nodeK61
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(16), parameter nodeK31
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(4), parameter nodeG7
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter weightG10
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter weightG25
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
real(RKB), dimension(11), parameter nodeK21
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter weightK15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(4), parameter weightG7
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
real(RKB), dimension(26), parameter weightK51
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(10), parameter weightG20
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(26), parameter nodeK51
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter nodeG10
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(31), parameter weightK61
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(8), parameter weightG15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
real(RKB), dimension(10), parameter nodeG20
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...
This is the indicator type for generating instances of objects that indicate the use of the negative ...
This is the indicator type for generating instances of objects that indicate the use of the positive ...
This is the indicator type for generating instances of objects that indicate the use of 7-point Gauss...
This is the indicator type for generating instances of objects that indicate the use of 10-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 15-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 20-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 25-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 30-point Gaus...
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
This is the derived type for constructing objects that signify the computation of the integral an arb...
This is the indicator type for generating instances of objects that indicate the use of Epsilon extra...
This is the derived type for constructing objects that signify the computation of the integral an arb...